如何在VBA UserForm中集成msoFileDialogFolderPicker文件夹选择器？

我在VBA用户窗体（UserForm）里设置了多个用户交互问询项，目前卡在一项需求上：不知道如何将msoFileDialogFolderPicker文件夹选择功能整合到用户窗体中。我曾使用过类似下方的函数作为独立弹窗实现该功能，但不清楚能否将其整合到用户窗体里，请问这可行吗？

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function

当然可行啦！其实你不需要把文件夹选择器“嵌入”到用户窗体里（毕竟msoFileDialogFolderPicker本身就是系统级的弹窗），而是可以通过用户窗体上的控件触发这个功能，再把选中的路径同步到窗体的输入控件中，完美融入你的交互流程。

具体操作步骤如下：

1. 给你的用户窗体添加两个控件：

   • 一个TextBox（命名为txtFolderPath，用来展示选中的文件夹路径）
   • 一个CommandButton（命名为cmdBrowseFolder，按钮标题设为“浏览文件夹”）

2. 双击cmdBrowseFolder按钮打开代码窗口，粘贴以下代码：

Private Sub cmdBrowseFolder_Click()
    Dim selectedFolder As String
    ' 调用你已经写好的GetFolder函数
    selectedFolder = GetFolder()
    
    ' 如果用户选中了文件夹，就把路径填入文本框
    If selectedFolder <> "" Then
        txtFolderPath.Text = selectedFolder
    End If
End Sub

' 如果你的GetFolder函数原本在标准模块里，这里可以不用重复写；如果是第一次用，就把它放在这里
Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function

补充说明 #

• 如果你的GetFolder函数原本就放在标准模块中，且是Public类型的，那用户窗体的代码里只需要保留cmdBrowseFolder_Click的部分即可，不用重复定义函数。
• 这样设置后，用户点击窗体上的“浏览文件夹”按钮，就会弹出熟悉的文件夹选择弹窗，选中路径后会自动填充到文本框里，完全符合你的用户交互需求。

内容的提问来源于stack exchange，提问作者user3138025