vba如何将excel数据导入access（VBA数据库操作03从Access查询数据导入到Excel）

从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－

,