VBA Excel auslesen dateien in Ordner

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen.

Ich liste über folgenden Code die Dateien in einem variablen Ordner aus:

Set FSO = CreateObject(„Scripting.Filesystemobject“)
Set Ordner = FSO.GetFolder(vez_suche) 'Pfad anpassen
For Each Datei In Ordner.Files
Range(„C“ & b + 1 & „:smiley:“ & b + 1).Insert Shift:=xlDown
Sheets(„synch“).Range(„C“ & b + 1).Value = verz
Sheets(„synch“).Range(„D“ & b + 1).Value = Range(„D“ & A) & „“ & Datei.Name
b = b + 1
anzahldatei = anzahldatei + 1
Next

Mein Problem ist nun, dass in einem dieser ausgelesenen Ordner 10 Dateien sind, allerdings nur 3 Dateien gefunden und entsprechend ausgegeben werden.

Gibt es für diesen Code Beschränkungen, was die Namensgebung der Datei angeht? Es handelt sich bei allen Dateien um eine pdf. Gibt es Sonderzeichen, die intern zu einem „Fehler“ führen?

Grüße und schon mal Danke.

#2

hallo kackei,
mit der for schleife funktiert das bei mir. Siehe Code unten.
Was Du in der for Schleife machen willst bleibt mir aber verborgen.
Gruß
Mark

Sub temp()

Set FSO = CreateObject(„Scripting.Filesystemobject“)
Set Ordner = FSO.GetFolder(„F:\Arbeitsverzeichnis“) 'Pfad anpassen
For Each datei In Ordner.Files
anzahldatei = anzahldatei + 1
ActiveWorkbook.ActiveSheet.Cells(anzahldatei, 1) = datei
Next

End Sub

#3

Hallo Sobotta.

Ich habe deinen Code mal probiert - das Ergebnis ist leider das gleiche. Von 10 Dateien im Ordner werden nur drei ausgelesen bzw. ausgelesen. Mir scheint es, als ob er die Dateien nicht als Datei erkennt. Ist wahrscheinlich nicht wirklich ein VBA-Problem, sondern vielmehr ein Datei-Problem allgemein.

Grüße.

#4

versuch mal das:
Gruß
Mark

Sub temp()
With Application.FileSearch
.LookIn = („F:\Arbeitsverzeichnis“) 'Pfad anpassen
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveWorkbook.ActiveSheet.Cells(i, 1) = .FoundFiles(i)
Next i
End With
End Sub