Excel用户窗体FileDialog添加xlsm筛选器遇运行时错误5的问题咨询

错误原因 #

你使用的msoFileDialogFolderPicker是文件夹选择对话框，这类对话框不支持文件筛选器（.Filters属性），强行添加筛选器会触发「运行时错误'5'：无效的过程调用或参数」，这就是报错的核心原因。要实现选择文件并筛选格式，必须改用文件选择对话框类型msoFileDialogFilePicker。

修正后的完整代码 #

Private Sub OpenExplorer_Click()
    Dim diaFile As Office.FileDialog
    Dim selected As Boolean

    ' 改用文件选择对话框类型
    Set diaFile = Application.FileDialog(msoFileDialogFilePicker)
    diaFile.AllowMultiSelect = False
    
    With diaFile
        .Title = "请选择XLSM格式文件"
        .Filters.Clear
        ' 添加筛选器，格式为「显示文本」+「文件通配符」
        .Filters.Add "Excel宏启用工作簿 (*.xlsm)", "*.xlsm"
        .Filters.Add "所有文件 (*.*)", "*.*"
    End With

    selected = diaFile.Show
    If selected Then
        ' 将选中的文件路径写入TextBox1
        TextBox1.Text = diaFile.SelectedItems(1)
    End If

    Set diaFile = Nothing
End Sub

关键修改点 #

• 对话框类型替换：把msoFileDialogFolderPicker改为msoFileDialogFilePicker，这是文件选择的专属类型，支持筛选器配置。
• 筛选器格式修正：筛选器的通配符需要带*，比如*.xlsm，而非.xlsm；"所有文件"对应的通配符是*.*，不是.。
• 逻辑保留：保留了单选设置和选中后写入TextBox的逻辑，匹配需求。

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