hab einen Code gefunden, der soll die Dateinamen eines auslesen.
Sub DateienAuflisten()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Const verz = "C:\Rechnungswesen"
ChDir verz
Sheets("Dateien").Range("A:A").ClearContents
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Sheets("Dateien").Range("A" & i) = .FoundFiles(i)
Next i
End With
Sheets("Dateien").Range("A1").Select
End Sub
Nach With Application.FileSearch kommt die Fehlermeldung Laufzeitfehler 445.Hat jemand einen tipp, wo der Fehler liegen könnte?
Kann man aus diesen geschlossenen Dateien auch die Tabellenblätter auslesen?
Vielen Dank und Grüße
Carmen