如何得到一个Excel文件所有的Sheet名称？

Question

请问如何得到一个Excel文件所有的Sheet名称？
因为我要做Excel导入的功能，但一个Excel文件中有时会有许多表，我要让用户选择一个表名再导入，请问如何得到EXCEL文件所有的表名呢？

Answer 1

var
  EA:variant;
  i:integer;
begin
  EA:=CreateOleObject('Excel.Application');
  EA.workbooks.open('c:\excalfilename.xls');
 
  for i:=1 to EA.workbooks[1].worksheets.count do
  begin
    showmessage(EA.workbooks[1].worksheets[i].name);
  end;

Answer 2

for I :=0 to ExcelApplication1.Sheets.Count-1 do
begin
(ExcelApplication1.Sheets[i] as _WorkSheet).Name
end;

Answer 3

楼上说的都不错
for i:=1 to EA.workbooks[1].worksheets.count do
  begin
    showmessage(EA.workbooks[1].worksheets[i].name);
  end;