habe schon eineige Versuche hinter mir, klappt aber nicht Kann mir jemand einen kurzen Code zeigen, der mir den Dateinamen liefert?
Danke
TOM
Sub ListFiles()
Dim OFS As Object, oFolder As Object, oFile As Object
Dim oDict As Object
Dim sFolder As String
Set OFS = CreateObject("Scripting.filesystemobject")
Set oDict = CreateObject("Scripting.dictionary")
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\"
If .Show = -1 Then
sFolder = .SelectedItems(1)
Set oFolder = OFS.getfolder(sFolder)
For Each oFile In oFolder.Files
If LCase(oFile) Like "*.xls*" Then 'nur Excel
If (oFile.Attributes And 2) = 0 Then 'keine versteckten
oDict(oFile) = oFile.Name
End If
End If
Next
With Sheets.Add
With .Cells(1, 1)
.Resize(oDict.Count) = _
WorksheetFunction.Transpose(oDict.keys)
.Resize(oDict.Count).Offset(, 1) = _
WorksheetFunction.Transpose(oDict.items)
End With
.Columns.AutoFit
End With
End If
End With
End Sub