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

Question

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 ??????

Answer 1

这是录制的宏,怎么转成delphi语句呀?我试了二小时,不行,快崩溃了.
 Sheets("Sheet1").Copy After:=Sheets(3)

Answer 2

 excelworkbook1.Worksheets[1].copy(excelworkbook1.Worksheets[1])
也不行

Answer 3

学习，正在研究于delphi操纵excel问题

Answer 4

row:=self.ExcelWorksheet1.Cells.SpecialCells(xlcelltypelastcell,xllogical).Row;
  col:=self.ExcelWorksheet1.Cells.SpecialCells(xlcelltypelastcell,xllogical).Column;
  case col of
  1:s:='A';
  2:s:='B';
  3:s:='C';
  4:s:='D';
  5:s:='E';
  6:s:='F';
  7:s:='G';
  8:s:='H';
  9:s:='I';
  10:s:='J';
  11:s:='K';
  12:s:='L';
  13:s:='N';
  14:s:='O';
  15:s:='P';
  16:s:='Q';
  17:s:='R';
  18:s:='S';
  19:s:='T';
  20:s:='U';
  21:s:='V';
  22:s:='W';
  23:s:='X';
  24:s:='Y';
  25:s:='Z';
  26:s:='A';
  end;
  ran:=self.ExcelWorksheet1.Range['A1',s+inttostr(row)];
  ran.Copy(EmptyParam);
  //self.ExcelWorksheet1.Copy;
  //ran.
  //self.ExcelWorksheet1.Range['A1',s+inttostr(row)].Select.copy(emptyparam);
  ran:=self.ExcelWorksheet1.Range['A'+inttostr(row+1),'A'+inttostr(row+1)];
  ran.Select;
  self.ExcelWorksheet1.Paste;  self.ExcelWorksheet1.SaveAs('f:\统计报表.xls');

Answer 5

再一种笨办法，逐个单元格复制粘贴  row:=self.ExcelWorksheet1.Cells.SpecialCells(xlcelltypelastcell,xllogical).Row;
  col:=self.ExcelWorksheet1.Cells.SpecialCells(xlcelltypelastcell,xllogical).Column;
  for i:=1 to row do
  begin
    for j:=1 to col do
    begin
      s:=self.ExcelWorksheet1.Cells.Item[i,j];
      self.ExcelWorksheet1.Cells.item[row+i,col+j]:=s;
    end;
  end;