我正在使用FileDialog代码将Excel表导入Access 2013-32位，其工作方式与我想要的完全相同。当我在Access 2016中使用代码时，我在代码中出现错误，该代码表示＆＃34;无法找到库的项目＆＃34;。我检查了我的参考文献，它们看起来是一样的。
这是我的代码：
Private Sub Command2_Click（）
Dim JobName As String
Dim f As FileDialog
Dim tblImport As String
Dim varfile As Variant
Dim MyJobs作为DAO.Recordset
JobName = lbl1.value
DoCmd.Close
设置f = Application.FileDialog（msoFileDialogFilePicker）
用f
.Title =＆＃34;选择Excel文件导入＆＃34;
.Filters.Clear
.Filters.Add＆＃34; Excel Files＆＃34;，＆＃34; * .xlsx＆＃34;
.AllowMultiSelect = True
如果f.Show = True那么
对于每个varfile在.SelectedItems中
Msgbox＆＃34; IMPORTING：＆＃34; ＆安培; varfile
tblImport = varfile
DoCmd.TransferSpreadsheet acImport，10，＆＃34; Parts＆＃34;，tblImport，True
下一个varfile
＆＃39;将工作名称添加到零件表
TempVars（＆＃34; jobName＆＃34;）= JobName
DoCmd.OpenQuery＆＃34;更新职位名称＆＃34;
＆＃39;将作业名称添加到作业表
设置MyJobs = CurrentDb.OpenRecordset（＆＃34; Jobs＆＃34;）
MyJobs.AddNew
MyJobs！[JobName] = JobName
MyJobs.Update
设f =无
其他
Msgbox＆＃34;你取消了。＆＃34;
万一
结束
结束子