在EXCEL中编写以下的VBA代码,可以连接至ACCESS2010(其它版本的修改连接字符串中的版本),并读取数据库中的记录至指定的单元格中。
Private Sub cbtn_toc_Click()
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0"
con.Open "Data Source=E:\O0PROP\归档.accdb
strsql = "select * from 项目文档"
rec.Open strsql, con
i=2
While Not rec.EOF
Sheet2.Range("B" & i) = rec.Fields("编号")
Sheet2.Range("D" & i) = rec.Fields("名称")
Sheet2.Range("c" & i) = rec.Fields("责任人")
Sheet2.Range("E" & i) = rec.Fields("文档时间")
Sheet2.Range("F" & i) = rec.Fields("备注")
i=i+1
rec.MoveNext
Wend
rec.Close
con.Close
Set rec = Nothing
Set con = Nothing
End Sub