使用VBA将数据从Excel插入到Access 2010中

我正在寻找一个将数据从Excel插入Access 2010的解决scheme。Excel中的数据是在一个窗体中。 填写表格后，Excel中的VBA会将数据作为新logging插入到Access表中。

1. 我不想在Access中使用函数 – 从Excel导入。
2. 我不想在Excel中存储数据 – 对象表。

我看了几个主题，但没有一个是我正在寻找的。 有人可以帮我吗？

Answer 1

使用DAO以避免与打开的Excel工作表（ http://support.microsoft.com/kb/319998 ）内存泄漏，例如：

'Reference: Microsoft Office xx Access Database Engine Object Library Dim ws As DAO.Workspace Dim db As DAO.Database Dim sDb As String Dim sSQL As String Dim qdf As QueryDef sDb = "Z:\Docs\Test.accdb" Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(sDb) ''A stored query would be better sSQL = "Parameters p1 Text, p2 Datetime; " _ & "INSERT INTO Table1 (AText,ADate) Values ([p1],[p2])" Set qdf = db.CreateQueryDef("", sSQL) qdf.Parameters!p1 = "ABC" qdf.Parameters!p2 = #2013/1/17# qdf.Execute dbFailOnError Debug.Print qdf.RecordsAffected