5,927
社区成员
发帖
与我相关
我的任务
分享★★如何通过现成的Excel Sheet复制Sheet★
我在EXCEL里已经有一张调好的Sheet（比方说就叫"Sheet1"），如何在Delphi中复制更多的Sheet（当然是在同一Excel文件中）？
...全文
请发表友善的回复…
发表回复
猪仔庆 2003-02-28
- 打赏
- 举报
试过了，请看我新的问题，谢了！
http://expert.csdn.net/Expert/topic/1475/1475916.xml?temp=.8765222
http://expert.csdn.net/Expert/topic/1475/1475916.xml?temp=.8765222
hanwen 2003-02-27
- 打赏
- 举报
来学习，顺便帮你UP
WWWWA 2003-02-27
- 打赏
- 举报
拷贝整个工作表：
ExcelApp.ActiveSheet.Used.Range.Copy;
从A1位置开始粘贴：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
从文件尾部开始粘贴：
ExcelApp.ActiveSheet.Range.PasteSpecial;
ExcelApp.ActiveSheet.Used.Range.Copy;
从A1位置开始粘贴：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
从文件尾部开始粘贴：
ExcelApp.ActiveSheet.Range.PasteSpecial;
ain2000 2003-02-27
- 打赏
- 举报
Range("A1:D14").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
