Question

如何用 delphi在excel同一个workbook中复制sheet1(放在原sheet1的后面)?

excelapplication1.Connect ;
excelapp1.Visible[0]:=true;
excelapp1.Workbooks.Open('文件名.xls',null,null,null,null,null,null,null,null,null,null,null,null,null,null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接
然后下一句就是将sheet1复制到后面
excelworksheet1.copy ????????? after ??????
这是录制的宏,怎么转成delphi语句呀?我试了二小时,不行,快崩溃了.
Sheets("Sheet1").Copy After:=Sheets(3)
excelworkbook1.Worksheets[1].copy(excelworkbook1.Worksheets[1])
也不行

Answer 1

这个问题不是问过了吗？问了两次？
sheet1为你要复制的表，为TExcelWorkSheet对象

sheet1.Copy(emptyparam,app1.ActiveSheet);//第一个参数是插入到前面，不用，第二个是插入到后面。
(sheet1.Next as _Worksheet).Name:='复制的sheet1' ;//这里可以重命名第二个表
sheet1.Select;//重新选择第一个表。

delphi操作excel的常用操作
http://www.99inf.net/SoftwareDev/Delphi/52881.htm