来自VBA的Access 2010文件对话框调用不工作

我正在调用一个文件对话框，但由于某些原因，我在屏幕截图中看到了错误。调用它的代码是：

有人能说出错误是什么吗？参考包括office 14对象库和access 14库

---

谢谢

您必须首先声明变量：

Private Sub cmdSelectFile_Click()
Dim objDialog As Office.FileDialog
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

With objDialog
  .AllowMultiSelect = False
  .Show
  If .SelectedItems.Count = 0 Then
    MsgBox "No file selected."
  Else
     txtFilePath = .SelectedItems(1)
    End If
  End With
End Sub

---

图书馆似乎没有拿起msofiledialogpicker——将其更改为msofiledialogopen，它工作正常。不确定原因-它在一台机器上与picker一起工作，但在其他机器上没有跨网络工作，但此解决方案仍然有效。

尝试在中添加dim语句时出现错误，即它是用户定义的类型。不幸的是，我无法在2010年对其进行测试，但它在Office 2013上工作。请参阅我在下面发布的解决方案

Private Sub cmdSelectFile_Click()
Dim objDialog As Office.FileDialog
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

With objDialog
  .AllowMultiSelect = False
  .Show
  If .SelectedItems.Count = 0 Then
    MsgBox "No file selected."
  Else
     txtFilePath = .SelectedItems(1)
    End If
  End With
End Sub