如何修改VBA代码以打开指定文件夹而非文件资源管理器

你直接把fileFilterPattern替换为文件夹路径会报错，是因为Application.GetOpenFilename的参数是文件筛选规则，不是文件夹路径——这个方法本身是用来选择文件的，不能直接传入路径作为参数。

下面分两种常见需求给出解决方案：

场景1：打开文件选择对话框时默认定位到指定文件夹 #

如果需要保留原代码的「选择文件并导入」逻辑，只是让对话框默认打开目标文件夹，可以用FileDialog替代GetOpenFilename，它支持指定初始路径：

Sub ImportText3()
    Dim selectedFile As Variant
    Dim targetFolder As String
    Dim fd As FileDialog
    
    ' 指定目标文件夹路径
    targetFolder = "C:\Users\jcriollo\Documents\Bronx\Raw Data\05.23"
    
    ' 创建文件选择对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .InitialFileName = targetFolder ' 设置初始打开的文件夹
        .Filters.Clear ' 清除默认筛选器
        .Filters.Add "Text & CSV Files", "*.txt;*.csv" ' 添加文件筛选规则
        .Title = "请选择要导入的文件"
        
        ' 判断用户是否选择了文件
        If .Show = -1 Then
            selectedFile = .SelectedItems(1)
        Else
            MsgBox "未选择文件。"
            Exit Sub
        End If
    End With
    
    Application.ScreenUpdating = False
    
    ' 继续原有的文件导入逻辑（记得补充后续代码）
    Open selectedFile For Input As #1
    ' ... 这里写读取文件内容的代码
    Close #1 ' 操作完成后关闭文件
    Application.ScreenUpdating = True
End Sub

场景2：直接打开指定文件夹（打开资源管理器窗口） #

如果需求只是打开目标文件夹窗口（不需要选择文件），可以用Shell命令实现：

Sub OpenTargetFolder()
    Dim targetFolder As String
    targetFolder = "C:\Users\jcriollo\Documents\Bronx\Raw Data\05.23"
    
    ' 打开文件夹（双引号处理路径中的空格）
    Shell "explorer.exe """ & targetFolder & """", vbNormalFocus
End Sub

注意事项 #

• 路径包含空格时，必须用双引号包裹（场景2中的""" & targetFolder & """就是为了处理这种情况）
• 如果需要批量导入指定文件夹下的所有txt/csv文件，可以结合Dir函数遍历文件夹内文件实现。

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