【求助】如何在EXCEL里运行ACCESS里的追加查询语句代码（SQL代码）？

panjianhui

我在EXCEL里输入一批数据，需要将这些数据添加到ACCESS数据库里的表中（两者字段一样），如果打开ACCESS，我可以运行一个追加查询来实现追加数据功能，但出于实际需要，我不想在EXCEL输数据时打开ACCESS程序来添加，所以想在EXCEL里利用VB编程来完成。
我知道大概思路是，先建立与ACCESS的连接，然后执行一条SQL语句，实现数据添加后，再关闭连接，但我就是不知道如何来完整写下这些代码，请教各位高手！

panjianhui

谁能帮帮我啊？

panjianhui

通过以下代码，可以添加一条数据，但如何更改，才能添加批量数据呢？

Sub adoTest()

Dim adoRt As Object
Dim strSQL As String

'// 创建ADO记录集对象
Set adoRt = CreateObject("ADODB.RecordSet")
'// 设置SQL 语句
strSQL = "SELECT * FROM dingdanbiao WHERE False"

With adoRt
'// 设置需要连接数据库
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\示例\订单数据库.mdb"
.CursorLocation = 3
.CursorType = 1
.LockType = 3

'// 设置SQL语句
.Source = strSQL
'// 准备打开记录集
.Open

'// 新增记录
.AddNew
'// 赋值
.Fields("客户代码").Value = Range("A2").Value
.Fields("订单号码").Value = Range("B2").Value
.Fields("订单日期").Value = Range("C2").Value

'// 更新
.Update

MsgBox "添加成功", vbInformation, ""

'// 判断并关闭记录
If .State = 1 Then
.Close
End If
End With

'// 从内存中释放
Set adoRt = Nothing
ActiveWorkbook.RefreshAll
End Sub