Application.FileDialog（msoFileDialogFilePicker）在以下版本中不起作用：16.0.7726.1049 Excel版本

Question

我对FileDialog对象有问题。在我的计算机上，代码可以完美运行，但在其他计算机上则无法运行。我的办公室版本：16.0.7329.1047，有问题的版本是：16.0.7726.1049。 仅FileDialog（msoFileDialogFilePicker）不起作用，其他文件（openpicker，folderpicker）在旧版本上也可以正常使用。 这是代码：

Private Sub Open2_Click()
 Dim objdialog As Object
 Const msoFileDialogFilePicker As Long = 3
 Set objdialog = Application.FileDialog(msoFileDialogFilePicker)
 With objdialog
        .Title = "Select the photo of the machine for the PDF report!"
        .ButtonName = "Select"
        If .Show = True Then
           Savepath2.Value = .SelectedItems.Item(1)
        Else
         Exit Sub
        End If
  End With
  Savepath2.SelStart = Len(Savepath2) + 1
  Savepath2.SetFocus
  Open2.SetFocus
End Sub

没有任何错误消息，当我按下open2按钮时什么也没有发生。我已经检查了代码运行到最后。 我希望你们中的一些人知道什么可能是问题以及如何解决。

先谢谢您

此致

罗伯特