Question

如何将Access中的数据用VBA写入Excel中

如何将Access中的数据用VBA写入Excel中

Answer 1

1. 打开EXCEL表，将其中一个表单取名为“Result"，假设你的Access数据库在C:\TEST.accdb;数据库表名为Test01
2. 将下面代码植入宏编辑器中,注意引用Excel控件MS ActiveX object 2.6和DAO 3.6
Sub ReadAccessToExcel()
Set ReadCooisCn = New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim RstX As New ADODB.Recordset

With ReadCooisCn
.Provider = "Microsoft.ACE.OLEDB.12.0;Data source=" _
& "C:\Test.accdb;Persist Security Info=False;"
.Open
End With
Sqlstr = "select * from Table01"

Rst.Open Sqlstr, ReadCooisCn, adOpenKeyset, adLockOptimistic

If Rst.RecordCount > 0 Then
worksheets("Result").cells(1,1).CopyFromRecordset Rst
End If

Rst.Close
Set Rst = Nothing
ReadCooisCn.Close
end Sub

追问

可不可以加一些注释进去呀，让我更好理解。

Answer 2

可以，如果你想类似的VBA代码可以QQ94013811