将Excel数据传输到Access

时间:2016-06-13 10:25:52

标签: excel vba ms-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,Microsoft Access无法打开数据库   因为它丢失,或者由其他用户专门打开,或者是   不是ADP文件。

对这些问题中的哪一个有任何建议?我是Access的新手,还没有完全掌握术语。

1 个答案:

答案 0 :(得分:3)

发现问题。我在Access数据库文件名中遗漏了npm run install -- --param differentOutput