excel导出(100分)

  • 主题发起人 主题发起人 chinacmb
  • 开始时间 开始时间
C

chinacmb

Unregistered / Unconfirmed
GUEST, unregistred user!
因工作关系,需要将报表导出到excel模板中.我的思路是这样的,先画好excel报表模板,然后根据记录,动态生成多个sheet,接着将数据写如excel.可是在生成多个sheet的时候出错,因为我是要把第1个sheet的所有内容复制到其他sheet的,代码如下:
fExcel.ActiveSheet.Cells.Select;
fExcel.ActiveSheet.Cells.Copy;
fExcel.ActiveSheet.Range['A1'].Select;
fExcel.Sheets.Item[AnotherSName].Select;
fExcel.ActiveSheet.Cells.Select;
fExcel.ActiveSheet.Paste;
fExcel.ActiveSheet.Range['A1'].Select;
调试的时候是 fExcel.ActiveSheet.Paste; 这个错了,请各位帮忙,看看,我引用了excel2000单元,装的却是excel2003,不知道有没有影响.各位千万不要把那个delphi控制excel宝典拿出来吓人,那个我研究了很长时间,只是在用PasteSpecial或者paste的时候从来没有成功过.
 
就知道你的问题没有那么简单,来顶你一下,抬升一下人气.别把大家吓着了,都不进来了!!![:D][:D][:D]还有,既然你觉得2000和2003可能会有兼容性问题,那么你还是自己测试一下.因为大家有可能也懒得动,别弄的浪费很多时间,什么也得不到啊!!!嘿嘿!!![:D][:D][:D]
 
谢谢上面同志的捧场,虽然你的话不能解决问题.不可能考虑兼容性,因为客户很多,条件不一样.其实现在的问题说的明白点,就是excel中sheet的copy.但是就是解决不掉啊!
 
后退
顶部