使用VBA將數據表格Excel插入到Access 2010中

Question

我正在尋找將Excel中的數據插入到Access 2010中的解決方案.Excel中的數據存在於表單中。填寫表格後，Excel中的VBA會將數據作爲新記錄插入到Access表中。

1. 我不想在Access中使用函數 - 從Excel導入。
2. 我不想在Excel中存儲數據 - 對象表。

我看了幾個主題，但沒有找到我想要的。有人能幫助我嗎？

Answer 1

使用DAO以避免內存泄漏有打開的Excel表（http://support.microsoft.com/kb/319998），例如：

'Reference: Microsoft Office x.x 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