Dim fDialog As Office.FileDialog   '从这里就报错
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
  .AllowMultiSelect = False
  .Filters.Clear
  .Filters.Add "Access files", "*.mdb"
  .Filters.Add "All files", "*.*"
  If .Show Then
    DoCmd.TransferDatabase acImport, "microsoft Access", .SelectedItems(1), acTable, "NotTch", "EXPORT", 0, 0
  Else
    Exit Sub
  End If
End With
MsgBox "导入成功！"

这段代码是我从另一个项目里复制来的，在另一个项目里运行非常顺利，打开文件对话框，选择文件……
但是来到这个项目后，关于filedialog的第一行代码就出错，好诡异
是不是使用filedialog之前要在VBA编缉窗口中的“工具”-“引用”中引用点什么？

添加引用 ,我的电脑上是14.0
Microsoft Office 14.0 Object Libray
你的根据自己的实际版本来 添加引用 .

谢谢，我试试！