从Access查询(Select)数据导入到Excel,主要步骤如下:
I 首先使用ADO连接到数据库;
II 根据需要,设置不同的查询条件创建查询记录集;
III 将记录集中的数据复制到指定工作表中;
IV 关闭数据库连接。
代码如下:
Sub 查询客户信息()
Dim cnn As New Connection, rs As New Recordset
Dim strSql As String, i As Long, sh As Worksheet
On Error Resume Next
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb"
strSql = "Select * FROM [客户] where 客户ID='GROSR' " '从“客户”表中获取数据,如果没有where子句,则获取全部
rs.Open strSql, cnn, adOpenStatic '打开记录集
Set sh = Worksheets.Add '添加工作表
sh.Name = "客户信息" '设置工作表名称
With sh
For i = 0 To rs.Fields.Count - 1 '用字段名作为表头
.Cells(1, i 1) = rs.Fields(i).Name
Next
.Range("A2").CopyFromRecordset rs '复制记录集中的数据
.Columns.AutoFit '设置列宽为自动适应
End With
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
-End-
,