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的时候从来没有成功过.
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的时候从来没有成功过.