将Excel数据传输到Access

Question

我按照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，Microsoft Access无法打开数据库，因为它丢失，或由其他用户独占打开，或者它不是ADP文件。

有关这些问题的哪些建议？ 我是Access的新手，还没有完全掌握术语。

Answer 1

发现了问题。 我在我的Access db文件名中遗漏了.accdb 。