Hi ich möchte mittels VBA mehrere Dateien öffnen nur über eine Spezielle Endung. Das heißt ich habe Dateien mit verschiedenen Dateinamen im gleichen Format in einem Ordner. Diese die Endung dieser Dateien werden von mir per Hand mit einer dreistelligen Laufvariable versehen.
Bsp.: Die Dateien heißen G:\SWH Praktikum\Hauptbahnhof_001.csv
G:\SWH Praktikum\Stöckertplatz_002.csv
G:\SWH Praktikum\Hauptstraße_003.csv
Ich möchte diese Dateien, die sich in ein und den Selben Ordner befinden in einer Schleife öffnen. Dabei kann die Endung von 001 bis 999 gewählt werden, was aber unmittelbar vor dieser dreistelligen Endung steht soll unberücksichtig bleiben und das Programm nicht beeinflussen. Nachstehend habe ich einen kleinen Ansatz für das Öffnen von Dateien mit einer Laufvariablen hinterlegt, welcher aber noch unzureichend ist.
For i = 1 To 20
Workbooks.Open Filename:="G:\SWH Praktikum\ ......"& i &".csv"
--> Algorithmus
ActiveWorkbook.Close
Next i
End Sub
Vielleicht habt ihr eine Idee.
|