delphi 操作excel复制sheet

 procedure TForm1.FormCreate(Sender: TObject);
 var  
wb1 : Variant; 
wb2 : Variant;  
vsheet1 : Variant;  
vsheet2 : Variant;  
range1 , range2 : Variant; 
begin  
wb1 := CreateOleObject('Excel.Application');  
wb2 := CreateOleObject('Excel.Application');   
wb1.WorkBooks.add;  
wb2.WorkBooks.Open('D:/Information.xlsx');   
wb1.Visible := True; 
wb2.Visible := True;   
vsheet1 := wb1.ActiveWorkBook.Sheets[1];  
vsheet2 := wb2.ActiveWorkBook.Sheets[1];
   vsheet2 := wb2.Workbooks[1].sheets[1];        
//这两句效果一样 {下面每一段都是可以单独运行的，大家只要稍稍修改一下就可以了，我不能说我说的全是对的，但是下面的代码我都是一句句执行过的。}
vsheet2.Copy(EmptyParam , wb2.ActiveWorkBook.Sheets[1]);      //复制到sheet1后面
vsheet2.Copy(wb2.ActiveWorkBook.Sheets[1]);   //复制到sheet1前面 
//wb2.worksheets.rows[1].Copy;   //这句是不能执行的
 vsheet2.rows[1].copy;     //复制第一行
 vsheet2.range['A1:A2'].Copy;       //复制指定区域
 vsheet2.usedrange.Copy;//复制所有
 vsheet2.range['A2'].pastespecial; //粘贴到指定位置 
 range2:= vsheet2.range[vsheet2.cells[1,1],vsheet2.cells[1, 2]];
 range2.select;
 range2.copy;
 range1 := vsheet1.range[vsheet1.cells[1,1],vsheet1.cells[1, 2]];
 range1.select;
 vsheet1.paste;                    //从vsheet2复制粘贴到vsheet1中
end;
end.