如何在VBA单文件浏览窗口中同时支持Excel与Word文件选择

你只需修改Application.GetOpenFilename的参数，将两种文件类型合并到同一个调用中，就能实现单个窗口同时可选Excel和Word文件，无需多次弹出窗口。

方案1：合并为单个文件类型选项（同时显示两种文件） #

这种写法会在文件类型下拉框中显示一个选项，窗口内同时列出.xlsm和.docx文件：

Private Sub BtnBrowse_Click()
    Dim result As Variant

    ' 合并Excel和Word文件类型，用分号分隔通配符
    result = Application.GetOpenFilename("Excel和Word文件 (*.xlsm;*.docx), *.xlsm;*.docx")

    If result <> False Then
        filetextbox.Text = result
    End If
End Sub

方案2：分设两个文件类型选项（用户可切换查看） #

如果需要让用户在下拉框中选择仅查看Excel或仅查看Word文件，可以用这种写法：

Private Sub BtnBrowse_Click()
    Dim result As Variant

    ' 分别定义Excel和Word的文件类型组，用逗号分隔各组
    result = Application.GetOpenFilename("Excel文件 (*.xlsm), *.xlsm, Word文件 (*.docx), *.docx")

    If result <> False Then
        filetextbox.Text = result
    End If
End Sub

参数格式说明 #

Application.GetOpenFilename的文件类型参数遵循以下规则：

• 单个文件类型组格式为："类型描述, 通配符"
• 同一组内支持多个通配符，用分号;分隔（如*.xlsm;*.docx）
• 多个文件类型组之间用逗号分隔，会在下拉框中生成独立选项

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