Office中国论坛/Access中国论坛

标题: 如何在后台打开数据表，复制其记录粘到Excel中？ [打印本页]

作者: aydl1014 时间: 2011-1-29 14:31
提示: 作者被禁止或删除内容自动屏蔽

作者: tmtony 时间: 2011-1-30 12:02
可在导出excel时，做个隐藏的数据表窗体，复制粘贴到excel.不过格式不可控

作者: aydl1014 时间: 2011-1-31 16:58
提示: 作者被禁止或删除内容自动屏蔽

作者: aydl1014 时间: 2011-1-31 19:40
提示: 作者被禁止或删除内容自动屏蔽

作者: todaynew 时间: 2011-1-31 20:47
本帖最后由 todaynew 于 2011-1-31 21:29 编辑

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

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

作者: aydl1014 时间: 2011-1-31 21:39
提示: 作者被禁止或删除内容自动屏蔽

作者: todaynew 时间: 2011-2-1 06:45

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)