|
#2
zyxyklh2023-05-13 23:45
这段代码是我从另一个项目里复制来的，在另一个项目里运行非常顺利，打开文件对话框，选择文件……
但是来到这个项目后，关于filedialog的第一行代码就出错，好诡异 是不是使用filedialog之前要在VBA编缉窗口中的“工具”-“引用”中引用点什么？  |
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 "导入成功！"