Legen Sie Standard-Datei-Speicherort für durchsuchen VBA

Ich habe den folgenden VBA-code, sucht nach einem Dateinamen in MS ACCESS-Formular:

Private Sub Command64_Click()
Dim dialog As FileDialog
Dim filePath As String
Dim fileName As String

Set dialog = Application.FileDialog(msoFileDialogFilePicker)

 With dialog
.AllowMultiSelect = False

.Show
 If (.SelectedItems.Count = 0) Then
 Else
    filePath = .SelectedItems.Item(1)
    fileName = Right$(filePath, Len(filePath) - InStrRev(filePath, "\"))
    Me.Thumbnail = fileName
 End If
End With
End Sub

Ich würde gerne einen Standard-Speicherort, wo die Datei-browser öffnet sich. Ist das möglich?

InformationsquelleAutor bbuller | 2014-07-29
  1. 2

    Können Sie Gebrauch machen von der InitialFileName Eigenschaft des FileDialog-Methode.

    Private Sub Command64_Click()
    Dim dialog As FileDialog
    Dim filePath As String
    Dim fileName As String

    Set dialog = Application.FileDialog(msoFileDialogFilePicker)

    With dialog
        .AllowMultiSelect = False
        .InitialFileName = "C:\yourFolderNameHere\"
        .Show
        If .SelectedItems.Count <> 0 Then
            filePath = .SelectedItems.Item(1)
            fileName = Right$(filePath, Len(filePath) - InStrRev(filePath, "\"))
            Me.Thumbnail = fileName
        End If
    End With
End Sub
    • Genial. Das macht mein Leben so viel einfacher. Danke!
    • Du bist herzlich willkommen. Obwohl die Verwendung eines trailing-slash ist nicht erforderlich, da der code auch ohne die letzten '\'. Viel Glück.
    InformationsquelleAutor PaulFrancis
  2. 0

    Ja, versuchen Sie dies:

    Private Sub Command64_Click()
Dim dialog As FileDialog
Dim filePath As String
Dim fileName As String

Dim directory As String
' Set a default location
directory = "C:\"

Set dialog = Application.FileDialog(msoFileDialogFilePicker)

 With dialog
.AllowMultiSelect = False
.InitialFileName = directory
.Show


If (.SelectedItems.Count = 0) Then
 Else
    filePath = .SelectedItems.Item(1)
    fileName = Right$(filePath, Len(filePath) - InStrRev(filePath, "\"))
    Me.Thumbnail = fileName
 End If
End With
End Sub
    InformationsquelleAutor duDE
Schreibe einen Kommentar