从VBA访问2010文件对话框调用不起作用

Question

我正在调用一个filedialog但由于某种原因我在屏幕截图中收到错误。调用它的代码是：

Private Sub cmdSelectFile_Click()
  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

任何人都能说出错误是什么？引用包含office 14对象库和包含的访问14库

由于

Answer 1

您必须先声明变量：

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

Answer 2

图书馆似乎没有拿起msofiledialogpicker-将其改为msofiledialogopen并且工作正常。不知道为什么 - 它在一台机器上使用了选择器，但在其他机器上没有通过网络，但这个解决方案确实有效。