[BUG提交]WPS最新版,版本号12.1.0.20305

WPS 32位 最新版 版本号 12.1.0.20305

调用 Application.FileDialog(msoFileDialogOpen) 打开文件框时有BUG

在 .AllowMultiSelect = True 设置可以多选文件的情况下,选择一个文件正常,选择多个文件的时候,会自动打开选择的文件,并且无法获取文件名

Sub test()
  

      With Application.FileDialog(msoFileDialogOpen)
            .Title = "Select ":
            .InitialFileName = ThisWorkbook.Path & "\":
            .Filters.Clear
            .AllowMultiSelect = True
            .Filters.Add "Files ", "*.xls*"
            .Filters.Add "All ", "*.*"
            .Show
            MsgBox "选择文件数为：" & .SelectedItems.Count
      End With
      

End Sub