将Excel数据传输到Access

我按照http://software-solutions-online.com/excel-vba-export-worksheet-to-existing-access-table/中的说明将数据从Excel电子表格传输到Access数据库。 我调整的脚本是：

Sub MailMerge2() Dim strPath As String Dim objAccess As Access.Application Dim strExcelPath As String strPath = "C:...Documents\MailMerge2" strExcelPath = Application.ActiveWorkbook.FullName Set objAccess = New Access.Application Call objAccess.OpenCurrentDatabase(strPath) objAccess.Visible = True Call objAccess.DoCmd.TransferSpreadsheet(acImport, _ acSpreadsheetTypeExcel8, "MyTable1", strExcelPath, _ True, "A1:D11") End Sub 

然而，运行这给我一个错误说：

运行时错误：7866，MicrosoftAccess不能打开数据库，因为它缺less，或由另一个用户专门打开，或者它不是一个ADP文件。

有关这些问题是哪个的build议？ 对于Access我还是比较陌生的，还没有完全掌握这个术语。

Answer 1

发现问题。 我在Access数据库文件名中省略了.accdb 。