Excel VBA文件夹选择器路径引用问题求助（VBA新手）

我来帮你搞定这个问题！之前直接写死路径能正常运行，但用文件夹选择对话框时出错，核心问题是你把FileDialog对象直接赋值给了字符串类型的path变量，类型不匹配肯定会出问题——咱们得从对话框对象里提取实际的路径字符串才行。

修正后的完整代码片段 #

Dim fd As FileDialog
Dim path As String

' 初始化文件夹选择对话框
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd
    .Title = "请选择包含Excel文件的目标文件夹" ' 设置对话框标题，提升用户体验
    ' 判断用户是否点击了"确定"按钮（返回值-1表示确认，0表示取消）
    If .Show = -1 Then
        ' 获取用户选中的第一个文件夹路径（对话框支持多选，这里我们只取单个路径）
        path = .SelectedItems(1)
        ' 关键：确保路径末尾带有反斜杠，避免后续拼接文件名时出错
        If Right(path, 1) <> "\" Then
            path = path & "\"
        End If
    Else
        ' 用户取消选择，给出提示并退出程序，防止后续代码报错
        MsgBox "未选择任何文件夹，程序将退出。", vbInformation
        Exit Sub
    End If
End With

' 接下来你就可以用这个path变量继续执行后续操作了
' 比如遍历文件夹内的Excel文件：
Dim fileName As String
fileName = Dir(path & "*.xlsx") ' 仅获取xlsx格式的Excel文件
Do While fileName <> ""
    ' 这里写入打开文件、合并工作表的原有逻辑
    fileName = Dir()
Loop

关键细节说明 #

• 类型匹配：path是字符串类型，必须接收字符串值，而FileDialog本身是对象，所以要通过.SelectedItems(1)提取实际的路径字符串。
• 取消操作处理：一定要判断用户是否点击了取消按钮，如果跳过这个判断，后续代码会因为path为空而报错。
• 路径格式修正：如果用户选中的路径末尾没有反斜杠，直接拼接文件名会生成错误路径（比如C:\Testfile.xlsx），加上反斜杠才能保证路径格式正确。

内容的提问来源于stack exchange，提问作者J Doncouse Threedogbowwow