VBA InitialFileName für Dateiexploerer
14.10.2016 00:00:45
Andreas
habe ein Frage zu meiner Funktion- "Dateiexplorer öffnen". Die Funktion läuft. Hätte nun gern eine Änderung, damit das Explorerfenster gleich bei D:\Mein neuer Ordner öffnet.
Ist es möglich, den Befehl dahin gehend zu ändern?
Ist bestimmt etwas mit: InitialFileName = "D:\Mein neuer Ordner" - Wo und wie kann ich das einfügen?
Kann wer helfen?
Function SelectFile() As String ' Datei Explorer Öffnen
Dim fileDlg As FileDialog
Set fileDlg = Application.FileDialog(msoFileDialogOpen)
With fileDlg
.Filters.Add "Excel File", "*.xl*", 1
.AllowMultiSelect = False
If fileDlg.Show = False Then
SelectFile = ""
Else
SelectFile = fileDlg.SelectedItems(1)
End If
End With
End Function
MfG Andreas
Anzeige