mit workbooks.open kann man ja Dateien öffnen. Mit welchem Befehl kann ich denn ein Verzeichnis öffnen?
Gruß
Ingo
Sub FileDialog_FolderPicker01()
Dim strFolder As String
With Application.FileDialog(4)
.InitialFileName = "C:\"
.InitialView = 2
If .Show = -1 Then
strFolder = .SelectedItems(1)
MsgBox strFolder 'Pfad des ausgewählten Ordners
End If
End With
End Sub