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

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;