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 & „“ & 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?
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
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.
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
“ & b + 1).Insert Shift:=xlDown