Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workaround zu dieses Problem. Wenn es einen Funktion gibt die true oder falsch ausgibt wenn einen Datei ja oder nein vorhanden ist wäre ich auch geholfen.
Ich versuche nämlich einen Macro zu erstellen die mehrere Dateien hinter einander importiert. Da alle Dateien nummeriert sind (1.txt, 2.txt, usw) habe ich schon einen Makro erstellt die einfach die Dateinummer erhöht. Das Problem ist wenn der letzter Datei erreicht wurde und der nächste nicht gefunden wird.
Meiner bisherigen Code sieht wie folgt aus: (noch ganz Roh, ohne irgendwas)
Sub Makro1()
Pfad = "TEXT;Macintosh HD:Users:jan:Desktop:Apocrypha:"
datei = 1
Do
pfad_datei = Pfad & datei & ".txt"
With ActiveSheet.QueryTables.Add(Connection:= _
pfad_datei, _
Destination:=Range("A1"))
.TextFileCommaDelimiter = True
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.Refresh BackgroundQuery:=False
End With
datei = datei + 1
Loop
End Sub