我需要把一個excel檔的資料抓進delphi的stringgrid，以下是我的程式碼(執行無誤): procedure TfrmConvertSPLNM.btnLoadExcelClick(Sender: TObject); var WorkBk : _WorkBook; WorkSheet : _WorkSheet; LCID, K, R : Integer; Rows, Cols : Integer; IIndex : OleVariant; RangeMatrix : Variant; NomFich : WideString; begin LCID := GetUserDefaultLCID(); if OpenDialog1.Execute then begin IIndex := 1; NomFich := OpenDialog1.FileName; XLapp.Connect; // Open the Excel File XLapp.Workbooks.Open(NomFich,EmptyParam,EmptyParam, EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,LCID); WorkBk := XLApp.WorkBooks.Item[IIndex]; WorkSheet := WorkBk.Worksheets.Get_item(1) as _WorkSheet; // Go to the last cell & Get the number of Rows and Columns WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate; Rows := XLapp.ActiveCell.Row; Cols := XLapp.ActiveCell.Column; // Define the number of the columns in the TStringGrid sgrid.ColCount := Cols 1; // Assign the Variant associated with the WorkSheet to the Delphi Variant Matrix RangeMatrix := XLApp.Range['A1',XLapp.Cells.Item[Rows,Cols]].Value; // Quit Excel and Disconnect the Server XLApp.Quit; XLApp.Disconnect; // Define the loop for filling in the TStringGrid K := 0; repeat Inc(K,1); sgrid.RowCount := K 1; sgrid.Cells[0,(K-1)] := IntToStr(K); for R := 1 to Cols do sgrid.Cells[R,(K - 1)] := RangeMatrix[K,R]; until K >= Rows; sgrid.RowCount := sgrid.RowCount - 1; // Unassign the Delphi Variant Matrix RangeMatrix := Unassigned; end; end; 程式執行無誤，但有一個缺點就是只能讀取excel檔中，第一個sheet的資料，也就是這段程式碼"WorkSheet := WorkBk.Worksheets.Get_item(1) as _WorkSheet"，如果要讀取不同的sheet就必須改程式碼且讀取的excel檔在最後關閉時也必須是在欲讀取sheet的那一個(簡單的說你程式碼寫....Get_item(3)....，你要讀的excel也必須是一開啟就在sheet3，否則就會出錯)，請問各位先進是否有更靈活的寫法能動態指定不同的sheet，把excel的資料通通抓到呢？

要取用別張 worksheet 可以利用 workbook 的 worksheets("sheet name") 來取得. WorkSheet := WorkBk.Worksheets("第二張名稱") as _WorkSheet; 要將該 worksheet 選為目前使用的 worksheet 可以下 select 即可. WorkSheet.Select;

引言: 要取用別張 worksheet 可以利用 workbook 的 worksheets("sheet name") 來取得. WorkSheet := WorkBk.Worksheets("第二張名稱") as _WorkSheet; 要將該 worksheet 選為目前使用的 worksheet 可以下 select 即可. WorkSheet.Select;

感謝timhuang兄的回覆，我加上紅色那段程式碼就可以指定要哪一個sheet了。 . . . // Open the Excel File XLapp.Workbooks.Open(NomFich,EmptyParam,EmptyParam, EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,LCID); WorkBk := XLApp.WorkBooks.Item[IIndex]; WorkSheet := WorkBk.Worksheets.Get_item(1) as _WorkSheet; WorkSheet.select(1,LCID); . . . 不過我在動態給它不同的sheet上又出現問題，理想狀態是使用者由OpenDialog開啟一個excel檔，然後程式得到該excel檔共有幾個sheet後，一個一個將sheet的資料塞進stringgrid，目前還未成功

由 workbook 來取得 worksheets 的數目可以利用:    workbook.worksheets.count 即可.    記得取用時可以使用    for i:= 1 to workbook.worksheets.count do begin worksheet := workbook.worksheets(i); worksheet.select; //.. 對此 worksheet 進行寫入的動作即可!! end;