選擇工作表excel

Question

XE3使用delphi與excel自動化。 有了這個代碼，我打開，並在細胞中的讀/寫，但我不能選擇不同的表（Sheet1中，表Sheet 3等）

begin 
L_vi.Caption: = 'D: \ bd1 \ file_supporto \ Vi.xls'; 
Ex: = createoleobject ('Excel.Application'); 
Ex.visible: = true; 
Ex.workbooks.open (L_vi.Caption); 
Ex.cells [1,1]: = 'test'; 
Sheets: = Ex.Workbooks [1]. Worksheets ['Sheet3']; 

你能幫忙嗎？

謝謝

P.S. 我解決如此：

Ex.Workbooks [1]. Worksheets ['Sheet3'].select; 

謝謝。

Answer 1

這很適合我在XE3：

var 
    XLApp: OleVariant; 
    Sheet: OleVariant; 
begin 
    XLApp := CreateOleObject('Excel.Application'); 
    XLApp.Visible := True; 
    XLApp.Workbooks.Open('C:\Test\Testing.xls'); 
    ShowMessage(XLApp.Workbooks[1].Worksheets[1].Name); // Sheet1 
    Sheet := XLApp.Worksheets.Item['Sheet3']; 
    ShowMessage(Sheet.Name);        // Sheet3 
    Sheet.Select; 
    // This also works 
    XLApp.WorkSheets.Item['Sheet1'].Select;    // Sheet1 
end;