如何判讀開啟的EXCEL檔是哪一個sheet? |
尚未結案
|
michaelhsu
一般會員 發表:1 回覆:1 積分:0 註冊:2003-05-09 發送簡訊給我 |
我需要把一個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的資料通通抓到呢?
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
michaelhsu
一般會員 發表:1 回覆:1 積分:0 註冊:2003-05-09 發送簡訊給我 |
引言: 要取用別張 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,目前還未成功 |
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |