如何实现将表中的列导出至指定的 EXCEL 指定行、列中

zengtao　发表于：2013-10-14 13:21:35 　

叶海峰发表于：2013-10-14 13:47:39

dim rst as dao.recordset

dim xlapp

set xlapp=createobject("excel.appliction")

set rst=currentdb.openrecordset("select 字段名 from 表名")

xlapp.visible=false

xlapp.workbooks.open(xls文件名)

xlapp.sheets("工作表名").range("单元格").copyfromrecordset rst

rst.close

set rst=nothing

xlapp.save

xlapp.visible=true

杜超-2号发表于：2013-10-14 13:48:12

导入导出
【access源码示例】导入导出系列——Excel数据高效导入示例[Access软件网]

http://www.accessoft.com/article-show.asp?id=5499
【access源码示例】导入导出系列——Excel固定格式的订单数据导出（改进版）[Access软件网]

http://www.accessoft.com/article-show.asp?id=5364
【access源码示例】导入导出系列——Excel固定格式导出（插入行方式，含图片）[Access软件网]

http://www.accessoft.com/article-show.asp?id=5300
【access源码示例】导入导出系列——Excel导入时替换表中已有记录[Access软件网]

总记录：2篇页次：1/1 9 1 :

Access交流中心