FileDialog msoFileDialogFilePicker 的 Filters 无效

Sub test()

Dim a As FileDialog

Set a = Application.FileDialog(msoFileDialogFilePicker)

a.Filters.Add "指定格式", "*.zip"

a.Show

End Sub

文件类型总是显示所有文件