如何在后台打开数据表，复制其记录粘到Excel中？

aydl1014 · 发表于 2011-1-29 14:31:04

本帖最后由 aydl1014 于 2011-1-29 17:22 编辑

窗体中数据是在ctgrid控件中显示的，代码是通过打开数据表，一行一行加载到ctgrid中的。现在需要把ctgrid（即那个数据表）中的数据导到excel中，如果还用ADO一行一行读出来写到excel中，会比较慢，能否默默打开数据表，复制其记录，打开指定的xls粘到指定的位置呢？

tmtony · 发表于 2011-1-30 12:02:36

可在导出excel时，做个隐藏的数据表窗体，复制粘贴到excel.不过格式不可控

aydl1014 · 发表于 2011-1-31 16:58:43

本帖最后由 aydl1014 于 2011-1-31 19:07 编辑

这样是不是不能指定粘到哪个sheet，从哪一个单元格开始粘贴呀

aydl1014 · 发表于 2011-1-31 19:40:01

本帖最后由 todaynew 于 2011-1-31 20:48 编辑

通过研究以往的例子，终于成功了，现将代码分享如下：

Dim Rst As New ADODB.Recordset
Rst.Open "qry_SalesSum", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Dim xlApp As Excel.Application
Dim xlSheet As Worksheet

Set xlApp = New Excel.Application
Set xlSheet = xlApp.Workbooks.Open(CurrentProject.Path & "\报表.xls").Worksheets("ysData")
xlApp.Visible = True

xlSheet.Range("A2").CopyFromRecordset Rst

todaynew · 发表于 2011-1-31 20:47:34

本帖最后由 todaynew 于 2011-1-31 21:29 编辑

支持！
CopyFromRecordset绝对代表先进生产力的发展方向。

请aydl1014 同志继续研究一下，是否能将字段名一并copy到Excel中（指不用循环读Rst.Fields(i).Name的方法）。我想这样的话，就可以产生导出到Excel的第四种方法了。

aydl1014 · 发表于 2011-1-31 21:39:53

本帖最后由 aydl1014 于 2011-1-31 21:40 编辑

导入字段名，可以参照下面代码

ThisWorkbook.Worksheets("客户表").Range("A1:B1").Value = Array("CustomerCode", "Corparation")

todaynew · 发表于 2011-2-1 06:45:38

aydl1014 发表于 2011-1-31 21:39
导入字段名，可以参照下面代码

ThisWorkbook.Worksheets("客户表").Range("A1:B1").Value = Array("Cust ...

这个办法代表落后生产力，还不如Rst.Fields(i).Name循环获得，呵呵。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何在后台打开数据表，复制其记录粘到Excel中？

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)