Excel VBA Application.FileDialog（msoFileDialogFilePicker）无法打开带有大写字母扩展名的文件

Question

我正在尝试在Excel VBA中打开Excel文件。但是，我无法打开带有大写字母扩展名的文件（例如：abcd.XLSX）。使用以下代码，具有小写扩展名的文件可以很好地工作（例如：abcd.xlsx）。

有人可以帮我如何使其工作吗？

  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb; *.XLS; *.XLSX; *.XLSM; *.XLSB", 1
    If .Show = 0 Then
        Exit Sub
    Else
        fullpath = .SelectedItems.Item(1)
    End If
  End With