Dateien auflisten
21.01.2004 11:57:49
Miriam
aus der Recherche habe ich den Code um mir Dateien auflisten zu lassen.
Nun möchte ich der Reihe nach diese Datein aufmachen und zwar soll er mit Datie1 anfangen und Datei2 erst aufmachen, wenn Datei1 zu ist.
Also dachte ich mir ich nenne sie z.b. dat(1), ..., dat(5) usw.
Dann kann ihc sagen
open dat(1)
wenn dat(1) zu open dat(2) etc.
Aber das bekomme ich irgendwie nicht hin.
Hoffe ich habe mich klar ausgedrückt.
Anbei mein kläglicher Versuch:-))))
(Da der Code etwas länger ist habe ich nur den betreffenden Teil kopiert.)
Static
Sub Einlesen()
Pfad = "H:\Working\temp\"
Set fs = Application.FileSearch
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Pfad
.Execute
For icounter = 1 To .FoundFiles.Count
dat(icounter) = .FoundFiles(icounter)
Next icounter
End With
End Sub
Static
Sub BloAktVOben()
For icounter = 1 To End
Workbooks.Open Filename:="dat(icounter)", UpdateLinks:=3
Dateioffen
Next i
End Sub