Hallo zusammen,
ich bin neu hier im Forum und hoffe, dass ihr mir weiterhelfen könnt:
Ich habe mir Wetterdaten von 81 Wetterstation in Deutschland runtergeladen, allerdings sind diese leider nur pro Station und pro beobachteter Größe verfügbar, sodass ich über 1000 Dateien habe, die ich nun übersichtlich in Excel zusammenfahren möchte. Hier liegt auch das Problem: Ich brauche nun ein VBA-Makro, dass mir die Dateien ausliest und jede Datei einzeln jeweils in einem neuen Tabellenblatt innerhalb der Excel-Datei ausgibt.
Momentan habe ich mir durch Recherche folgendes zusammengebaut (inkl. Kommentaren und Fragen hinter den Zeilen):
Sub Import()
x = Sheets(1).UsedRange.Rows.Count 'was heißt das genau?
d = Dir("C:\VBA\Wolken\C*.txt") 'Die auszulesenden Dateien fangen alle mit "C" an
Do While d <> ""
Open "C:\VBA\Wolken\" & d For Input As #1
Do While Not EOF(1) 'was heißt das genau?
Line Input #1, temp 'was heißt das genau?
Cells(x, 1) = Replace(temp, vbTab, ",") 'was heißt das genau?
x = x + 1
Loop
Close #1
d = Dir
Loop
Sheets(1).UsedRange.Columns.AutoFit
End Sub
Der Code funktioniert soweit, gibt mir nun aber alle Datenzeilen untereinander aufgereiht wieder, was mir leider noch nichts bringt. Leider bin ich mit VBA noch nicht so versiert, dass ich das nun meinen Wünschen entsprechend anpassen kann. Kann mir hier vielleicht jemand helfen.
Wenn ihr ganz toll seid, wäre es auch noch super, wenn die eingelesenen Spalten, die durch ein Komma getrennt sind, noch jeweils auf einzelne Spalten aufgeteilt werden (wie bei der Text-In-Spalten-Funktion von Excel).
Wenn Ihr noch Fragen habt, immer her damit. Vielen Dank im Voraus.
Gruß
Mike
|