將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 。