VBA FileDialog.Show startet neu

Question

Ich versuche, den Pfad für einen Ordner mit der filedialog.show-Funktion zu erhalten.

Die Frage, die ich bin vor ist:

• Nachdem ich einen Ordner im folderpicking Fenster wählen Sie den Code nicht fortgesetzt. Es startet entweder neu oder es endet, ohne dass irgendetwas passiert.

Was könnte das Problem sein?

[...] 

Dim fpath As Variant 
Dim fldr As Object 
Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 
fldr.Title = "Select a Folder" 
fldr.AllowMultiSelect = False 
fldr.InitialFileName = Application.DefaultFilePath 
If fldr.Show = -1 Then 
    fpath = fldr.SelectedItems(1) 
Else 
    GoTo NextCode 
End If 
NextCode: 
set fldr = Nothing 

[...] 

Answer 1

Es funktioniert, verwenden Sie es einfach nicht den Weg Ergebnis anzuzeigen (oder geben einen String Wert aus diesem Sub).

Code ändern:

If fldr.Show = -1 Then 
    fpath = fldr.SelectedItems(1) 
Else 
    GoTo NextCode 
End If 

NextCode: 
set fldr = Nothing 

An:

If fldr.Show = -1 Then 
    fpath = fldr.SelectedItems(1) 
    MsgBox fpath ' <-- for DEBUG 
End If 

Set fldr = Nothing 

---

Wenn Sie Ihren Code als Function verwenden möchten, die den Pfad des ausgewählten Ordners zurückgibt, unter den Code verwenden :

Function GetFolderPath() As String 

Dim fpath As Variant 
Dim fldr As Object 

Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 
With fldr 
    .Title = "Select a Folder" 
    .AllowMultiSelect = False 
    .InitialFileName = Application.DefaultFilePath 

    If .Show = -1 Then 
     GetFolderPath = .SelectedItems(1) 
    End If 
End With  
Set fldr = Nothing 

End Function 

Und der Code, um es zu testen:

Sub Test() 

Dim FolderPath As String 

FolderPath = GetFolderPath 
MsgBox FolderPath 

End Sub