kann man irgendwie Namen der Dateien die in dem Ordner in dem die Datei liegt einlesen?
https://www.herber.de/bbs/user/103704.xlsx
Gruß
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
Gruß
Sub myDir()
SPfad = "c:\tmp"
sFile = dir(sPfad & "\*.*")
Do while sFile ""
i = i +1
Cells(i,1) = sFile
SFile = dir
Loop
End Sub
Der Code schreibt in Spalte A, die sollte leer sein. Wenn sPfad im Programm geändert wird, können auch weitere, bekannte Ordner durchsucht werden. Falls "alle Unterordner" durchsucht werden sollen, ist ein völlig anderer Ansatz notwendig.
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
Gruß