delphi取excel工作表名

Question

我用ADOdataset连接到excel文件  
ADOdataset1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Opendialog1.FileName+';Extended Properties=Excel 8.0;Persist Security Info=False';现在想取 被连接表格的中的表名,,,,默认是的SHEET1.......如何不是默认表名,,,就需要取出来.....
请老师....

Answer 1

function MyTableExists(const ATableName: string;sConnStr: string): boolean; 
{********************************** 
功能：检查数据库里是否存在某个数据表，true存在，false不存在 
更新时间:20041029 
***********************************} 
var 
 SL: TStringList; 
 I: integer; 
 S: string; 
 iConnect: TADOConnection; 
begin 
 Result := False; 
 S := UpperCase(ATableName); 
 SL := TStringList.Create; 
 iConnect := TADOConnection.Create(nil); 
 try 
   iConnect.ConnectionString := sConnStr; 
   iConnect.LoginPrompt := False; 
   iConnect.GetTableNames(SL, False); //取得表名 
   for I := 0 to (SL.Count - 1) do 
   begin 
     if UpperCase(SL[I]) = S then 
     begin 
       Result := True; 
       Break; 
     end;//if/ 
   end;//for/ 
 finally 
   SL.Free; 
   iConnect.Connected := False; 
   iConnect.Free; 
 end;//try/ 
end; 
用这个判断有表没有