45754
May 04, 2007, updated at 07:53:05 (UTC)
31910
3
0
Excel Makro muss alle Dateien im Ordner durchlaufen
Hallo zusammen!
Ich bräuchte ein Excel Makro, dass mir aus jeder XLS Datei (Dateiname ansonsten unbekannt), die in dem Unterordner c:\Input liegt, jeweils die Werte A1; B2;C3 holt und schön spaltenweise in eine Zieldatei c:\ziel.XLS schreibt.
Mit einer Datei kein Problem, aber wie sieht die Schleife aus um durch alle Dateien in einem Ordner zu laufen, wenn die Anzahl und der Dateiname bis auf die Endung .xls nicht bekannt ist?
Vielen Dank für eure Hilfe
Ich bräuchte ein Excel Makro, dass mir aus jeder XLS Datei (Dateiname ansonsten unbekannt), die in dem Unterordner c:\Input liegt, jeweils die Werte A1; B2;C3 holt und schön spaltenweise in eine Zieldatei c:\ziel.XLS schreibt.
Mit einer Datei kein Problem, aber wie sieht die Schleife aus um durch alle Dateien in einem Ordner zu laufen, wenn die Anzahl und der Dateiname bis auf die Endung .xls nicht bekannt ist?
Vielen Dank für eure Hilfe
Please also mark the comments that contributed to the solution of the article
Content-Key: 58175
Url: https://administrator.de/contentid/58175
Printed on: April 25, 2024 at 17:04 o'clock
3 Comments
Latest comment
Hallo tooltime!
Eine Möglichkeit wäre das "FileSystemObject" von VBScript:
Grüße
bastla
Eine Möglichkeit wäre das "FileSystemObject" von VBScript:
Const sSourcePath As String = "D:\Daten"
Dim fso as Object, oFile as Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each oFile In fso.GetFolder(sSourcePath).Files
If LCase(Right(oFile.Name, 4)) = ".xls" Then
Application.Workbooks.Open (oFile.Path)
...
...
End If
Next
Grüße
bastla