诛仙2魔焚香护符:我想请教各位高手一个有关EXCEL借助VBA与入ACCESS数据库的问题

可以使用宏来实现，给你一个简单的例子。

Sub adoTest()
Dim adoRt As Object
Dim strSQL As String

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

With adoRt
'// 设置需要连接数据库
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\栽培者\程序\打印类\测试\printTest.mdb"
.CursorLocation = 3
.CursorType = 1
.LockType = 3

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

'// 新增记录
.AddNew
'// 赋值
.Fields("Name").Value = Range("A1").Value
.Fields("Sex").Value = Range("B1").Value
.Fields("Age").Value = Range("C1").Value

'// 更新
.Update

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

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