以下程式的目的是 1.copy原有sheet內容新增幾個同樣的sheet 2.更改新增後的sheet名字

 procedure TForm1.Button1Click(Sender: TObject); 
 var ex,wb,ExSheet:Olevariant;  
 begin 
     ex := CreateOleObject('Excel.Application');                
     wb := ex.WorkBooks.Open('C:\Temp\8D.XLS',IgnoreReadOnlyRecommended:=True); 
     ex.visible := true; 
     ExSheet := wb.Sheets['PT'].Copy(After:=wb.Sheets['PT']);
     ExSheet.Name := 'SMK';
    ^^^^^^^^^^^^^^^^^^^^^^^此行會發生錯誤！！
 end; 

各位高手，可以幫我解答嗎? 謝謝！

Hi, 由於複製 sheet 的功能並不會傳回該新增的 sheet ole variant, 所以必須從新增的 sheet 相對於已知的 sheet 下手, 如你的範例中, 是 copy after 'PT' 這個 sheet, 所以可以利用    ExSheet := wb.Sheets[wb.Sheets['PT'].Index ＋ 1];    來取得新增的 sheet 哦, 所以程式修改一下就行了:    

 procedure TForm1.Button1Click(Sender: TObject);
 var ex,wb,ExSheet:Olevariant;
 begin
     ex := CreateOleObject('Excel.Application');
     wb := ex.WorkBooks.Open('C:\Temp\8D.XLS',IgnoreReadOnlyRecommended:=True);     
     ex.visible := true;
     wb.Sheets['PT'].Copy(After:=wb.Sheets['PT']);
     //ExSheet.Name := 'SMK';
     ExSheet := wb.Sheets[wb.Sheets['PT'].Index ＋ 1];
     ExSheet.Name := 'SMK';     end;