Sub DateienAuslesen()
Dim vPath As String
Dim fs As Object
Dim f As Object
Dim fc As Object
Dim i As Long
vPath = "C:\Daten" 'anpassen
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(vPath)
Set fc = f.Files
i = 1
ActiveSheet.Cells(1, 1) = "Dateinamen im Ordner " & vPath
For Each f1 In fc
i = i + 1
ActiveSheet.Cells(i, 1) = f1.Name
Next
End Sub
Sub myDir()
SPfad = "c:\tmp"
sFile = dir(sPfad & "\*.*")
Do while sFile ""
i = i +1
Cells(i,1) = sFile
SFile = dir
Loop
End Sub
Sub myDir()
Dim sPfad As String, sFile As String, i As Long
sPfad = ThisWorkbook.Path
sFile = Dir(sPfad & "\*.xls*")
Do While sFile ""
If sFile ThisWorkbook.Name Then
i = i + 1
Cells(i, 1) = sFile
End If
sFile = Dir
Loop
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen