Question

如何用delphi控制excel,生成表"sheet1"的副本,并排在sheet1后面?

用delphi中自带的excel控件,excelworksheet1,如何 复制表"sheet1"的副本,并排在sheet1后面?
excelworksheet里有个copy方法,但使用之后,会把副本表新建在一个新的工作薄workbook上,我是要在同一个workbook上.
这是录制的宏,怎么转成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;//重新选择第一个表。

Answer 2

FWorkBook := CreateOleObject('Excel.Sheet');
FWorkBook:=FExcel.workbooks.open(FileName);
FWorksheet:=FWorkBook.Worksheets[1];
FWorksheet.Range['A0:I7'].Copy;
FWorksheet.Range['A10:I17'].PasteSpecial;

Answer 3

很久以前我写的代码，如下：
注：Eclapp是你要控制的Excel对象

Eclapp.sheets[1].copy(eclapp.sheets[2]); //复制
Eclapp.sheets[2].select; //切到新工作表上
Eclapp.sheets[2].name:='MyNewSheet'; //重命名新工作表