Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Hi
hier merkst du das Alter von VBA.
ChDir funktioniert nur mit vorgeschaltetem ChDrive und ChDrive benötigt den einfachen Laufwerksbuchstaben, also das was du gemapped hast.
Ein anderer Weg, einen Dateinamen auszuwählen ist Application.Filedialog
Das muss etwas aufwendiger programmiert werden, aber du kannst auch ein Serververzeichnis vorgeben.
Meine KI-Suchmaschine liefert mir dazu folgenden Beispielcode:
Sub OpenFileWithFileDialog()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
' Startverzeichnis voreinstellen (kann auch eine Serveradresse sein)
fd.InitialFileName = "\\server\freigabe\"
' Optional: Dateifilter setzen
fd.Filters.Clear
fd.Filters.Add "Excel-Dateien", "*.xlsx; *.xls"
fd.Filters.Add "Alle Dateien", "*.*"
' Dialog anzeigen
If fd.Show = -1 Then
' Ausgewählte Datei ausgeben
MsgBox "Ausgewählte Datei: " & fd.SelectedItems(1)
Else
MsgBox "Keine Datei ausgewählt."
End If
End Sub
Gruß Daniel