如何限制Application.FileDialog仅可选单个XML文件及相关编译报错解决

报错原因 #

你遇到的编译错误是因为Filters.Add是VBA的方法，不是可赋值的属性，且该方法要求传入两个必填参数：筛选器显示名称、匹配的文件后缀规则，你错误使用了等号赋值，且将两个参数合并为一个字符串传入，才会触发参数缺失的提示。

修正后的完整代码 #

Dim filename As String

' 选择单个XML文件
With Application.FileDialog(msoFileDialogFilePicker)
    ' 清除默认筛选规则，避免其他格式可选
    .Filters.Clear
    ' 正确调用Add方法添加XML文件筛选
    .Filters.Add "XML Files", "*.xml"
    ' 禁止多选，仅允许选单个文件
    .AllowMultiSelect = False
    .Title = "Select XML file"
    
    If .Show <> -1 Then Exit Sub
    filename = .SelectedItems(1)
End With

修改说明 #

• 新增Filters.Clear是为了清除系统默认自带的其他文件类型筛选，确保选择框内只显示XML格式文件
• 修正了Filters.Add的调用语法，不需要加等号，两个参数用逗号分隔即可
• 保留AllowMultiSelect = False配置，完全满足仅选单个文件的需求

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