2024年6月21日发(作者：)

Accessvba导出数据到Excel方法总结

Access vba有各种方法可以导出到Excel，方法大致如下：

1、查询导出 。优点：可以根据查询设计(直观) 。缺点：格式固定。

2、ADO逐条遍历 。优点：写入位置可以灵活控制 。缺点：速度

较慢

3、CopyFromRecordset 。优点：速度极快 。缺点：格式固定

4、Excel插入QueryTable 。优点：速度较快，可以汇总

5、复制粘贴 。优点：标题、格式等和子窗体一致 。缺点：只能

导出数据表显示的子窗体数据

1、利用查询导出

1. To acOutputQuery, "具体的查询名称

", acFormatXLS, , True

执行这条语句，即可把对应的查询导出到Excel文件 拓展：

1）你也可以根据SQL语句自动创建查询，再导出。

1. QueryDef "新的查询名称", "SQL语句" '

创建查询

2）导出之后，你可以删除掉这个查询

1. Object acQuery, "查询名称" '删除查

询

3）也可以修改当前查询的SQL语句之后，再导出

1. Dim qdf As Object 'ef'

2. Set qdf = efs("查询名称")

3. = strSQL '设置新的SQL语句'

2、ADO逐条遍历

这种方法是最传统和最典型的方法，也是最灵活的。打开一个记

录集，然后遍历数据对Excel操作即可。重点在操作Excel。

1. Dim rs As New set

2. Dim xlApp As Object 'ation'

3. Dim xlBook As Object 'ok'

4. Dim xlSheet As Object 'eet'

5. Set xlApp = CreateObject("ation")

6. Set xlBook = '添加一个新的Book'

7. Set xlSheet = Sheet '使用当前的Sheet'

8. Dim strSql As String

9. Dim i As Long

10.

11.

12.

13.

'

14.

15.

16.

17.

18.

19.

3、CopyFromRecordset导出数据

CopyFromRecordset是Excel vba的方法，可以快速把一个记录

集的数据填充到Excel单元格中。

1. '标题：根据SQL语句，快速导出到Excel文件'

2. '作者：杨仕航'

3. '创建日期：2015-01-10'

4. '说明：'

5. ' - 会将SQL语句的字段名作为标题。可以用As的方式设置

对应字段的标题，如果是关键字，要加中括。'

6. ' - 示例：ExportToExcel "select FID as [ID], FText as 文

(2 + i,2)=rs("FName")

xt

i=i+1

Loop

e=True

strSql="Select * from 表1 where ID<10"

strSql, tion, 1, 1

Do While Not

(2 + i,1)=rs("ID") '从第2行开始写数据