Dateien öffnen
14.02.2015 11:04:19
Tina
Hallo,
ich brauche Euren Rat :o)
ich habe 11 Dateien, in denen Mitarbeiter ihre Statistik führen.
Einmal im Monat hole ich mir die Daten, um sie in einer Datei zusammenzuführen.
Das habe ich bisher mit dem Befehl: ExecuteExcel4Macro gemacht. Das dauert aber seehhhhr lange und ist scheinbar unpraktisch.
Als Alternative kann ich mir die Daten aber nur holen, wenn ich alle Dateien öffne. sehe ich doch richtig, oder?
Die Dateien heißen: Flest001.xlsm, Flest002.xlsm .... bis Flest011.xlsm
Wenn ich es so mache, haut das aber nicht hin, weil es dann bei den letzten Dateien: Flest0011.xlsm heißen würde.
Dim n%
For n = 1 To 11
Workbooks.Open (ThisWorkbook.Path & "\Flest00" & n & ".xlsm")
DoEvents
Next w
Habt Ihr einen Vorschlag für mich?
LG
Tina