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;