當前位置:成語大全網 - 新華字典 - delphi中如何取得Excel的單元格的名稱?

delphi中如何取得Excel的單元格的名稱?

如果妳是想獲得Worksheets名稱的話。

var

excel: OLEVariant;

WorksheetsName : string;

i : integer;

begin

try

//打開EXCEL

excel:=CreateOleObject('Excel.Application');

except

application.Messagebox('無法打開Xls文件,請確認已經安裝EXCEL.', '', mb_OK + mb_IconStop);

Exit;

end;

excel.Visible := false;

excel.WorkBooks.open('aaa.xls');

excelcount := excel.Worksheets.count; //獲取Worksheets數

for i := 1 to excelcount do

begin

excel.WorkSheets[i].Activate;

WorksheetsName:=excel.Worksheets[i].name; //Worksheets名稱

end;

Excel.quit;//關閉EXCEL

end;