Excel VBA导入数据到现有的Access数据库

我发现过类似的问题，但我似乎无法弄清楚使用这些例子。Excel VBA导入数据到现有的Access数据库

我在Excel中写了一个宏，最后一步需要将Sheet1中的所有数据导入A：Q（第1行中的标题）到Access数据库中的Table1。我需要确保Excel中的每个列对应于Access中的正确字段。

我使用Excel 2010/2013和Access 2010/2013。我目前使用的代码是：

Sub AccImport() 

Dim acc As New Access.Application 
acc.OpenCurrentDatabase "C:\Users\Benjamin\Documents\Database1.accdb" 
acc.DoCmd.TransferSpreadsheet _ 
     acImport, _ 
     acSpreadsheetTypeExcel12Xml, _ 
     "Sheet1", _ 
     Application.ActiveWorkbook.FullName, _ 
     True, _ 
     "A1:Q1000"   'Need to change to reflect the last row in the sheet 
acc.CloseCurrentDatabase 
acc.Quit 
Set acc = Nothing 

End Sub

的代码导致错误信息，突出acc As New Access.Application并显示“编译错误 - 未定义的用户定义类型”

任何帮助将不胜感激。谢谢！

来源

2014-01-12 blahblahblah

你试过了什么代码？你有没有得到任何错误？ – thunderblaster

我想我需要使用一些这种语法 - http://msdn.microsoft.com/en-us/library/office/ff844793%28v=office.14%29.aspx，也许代码从这里http：///www.ozgrid.com/forum/showthread.php?t=76110。如果你能指向我一些代码，我认为我适应它，我只是没有找到我可以适应的东西。 @thunderblaster – blahblahblah

我曾尝试过这种方式，但遇到了一个错误：'Dim acc As New Access.Application acc.OpenCurrentDatabase“C：\ Users \ Benjamin \ Documents \ Database1.accdb” acc.DoCmd.TransferSpreadsheet _ acImport，_ acSpreadsheetTypeExcel12Xml，_ “tblExcelImport”，_ Application.ActiveWorkbook.FullName，_ 诚然，_ “CallLog” acc.CloseCurrentDatabase acc.Quit 设置ACC = Nothing' – blahblahblah

试试这个：在VBA编辑器中，转到工具 - >参考。向下滚动到“Microsoft Access 11.0对象库”（您的可能不是11.0，但您正在寻找一个说Microsoft Access），并确保该框被选中。如果没有，请检查它并单击确定。这解决了编译错误，当我测试它。

来源

2014-01-13 01:07:16 thunderblaster

谢谢！尽管如此，我还是会有_never_或者发现！ – blahblahblah

您是否在VBA中包含了Access的参考？

Tools > references > Microsoft Access xx.x Object Library

来源

2014-01-13 01:08:55 JMG

Excel VBA导入数据到现有的Access数据库

回答

相关问题