Excel VBA无法获取选中文件夹路径，Debug.Print无输出怎么解决？

核心原因 #

1. 错误分支跳过Debug.Print执行：当你取消文件夹选择对话框时，GetFolder()会抛出错误，Merge_files里的On Error GoTo eh会直接跳转到错误处理块，Debug.Print folder代码根本没被运行，所以看不到输出。
2. 立即窗口未激活：即便代码执行了Debug.Print，如果VBA编辑器的**立即窗口（Immediate Window）**没打开，你也看不到输出（快捷键Ctrl+G可打开）。

修复步骤 #

1. 调整错误处理，保留调试输出 #

修改Merge_files过程，在错误处理块中也输出错误信息到立即窗口，同时确保正常流程下的Debug.Print能执行：

Public Sub Merge_files()
    On Error GoTo eh
    'Get the folder from the user'
    Dim folder As String
    folder = GetFolder()
    
    Debug.Print folder
    
    'Read through the files in the folder'
    Dim filename As String, data As Variant
    filename = Dir(folder & "Stevci*.xlsx")
    Do While Len(filename) > 0
        'read data from the file'
        Call ReadData(data, folder & filename)
        ' write data to the main worksheet'
        
        filename = Dir
    Loop
    Exit Sub
eh: 
    Debug.Print "Error: " & Err.Description ' 新增：将错误信息输出到立即窗口
    MsgBox Err.Description
End Sub

2. 优化GetFolder函数的鲁棒性 #

完善文件夹选择逻辑，确保路径格式正确，避免潜在的路径拼接问题：

Public Function GetFolder() As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fd
        .Title = "Select folder"
        .AllowMultiSelect = False ' 限制仅选择单个文件夹
        If .Show = -1 Then ' Show返回-1代表用户点击了确定按钮
            GetFolder = .SelectedItems(1)
            ' 确保路径末尾带有路径分隔符
            If Right(GetFolder, 1) <> Application.PathSeparator Then
                GetFolder = GetFolder & Application.PathSeparator
            End If
        Else
            Err.Raise vbObjectError + 1, "GetFolder()", "No folder was selected"
        End If
    End With
    Set fd = Nothing
End Function

3. 确认立即窗口已打开 #

在VBA编辑器中按下Ctrl+G打开立即窗口，Debug.Print的输出内容会直接显示在这里。

额外测试提示 #

• 调试阶段可以先手动给folder赋值固定路径（比如folder = "C:\YourTestFolder\"），验证Debug.Print是否正常输出，排除窗口未打开的问题；
• 后续需确保ReadData过程能正确读取目标文件数据并写入主工作表。

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