请问如何获得EXCEL中表的个数及各表的名称?

Description of your first forum.

请问如何获得EXCEL中表的个数及各表的名称?

帖子registry » 星期四, 2004年1月15日 08:29


我用ADO做了一个导入程序,但只能限定名称为sheet$,不具备通用性,请问如何获得EXCEL中表的个数及各表的名称?
 
 
 

请问如何获得EXCEL中表的个数及各表的名称?

帖子wwwwb » 星期四, 2004年1月15日 08:39


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//sheet个数
 begin
   showmessage(EA.workbooks[1].worksheets[i].name);//sheet名称
 end;