delphi取excel工作表名

[jxbw7408]

我用ADOdataset连接到excel文件
ADOdataset1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Opendialog1.FileName+';Extended Properties=Excel 8.0;Persist Security Info=False';

现在想取 被连接表格的中的表名,,,,默认是的SHEET1.......如何不是默认表名,,,就需要取出来.....


请老师....

[lyguo]

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;


用这个判断有表没有

[jxbw7408]

判断结果没有,,那如何取出表名来呢?我得要它们的名称....

[jxbw7408]

原样复制后,发现如何是中文表名是没法取的.

[jxbw7408]

在网上又查了一下...得以解决....


代码知道了.但不知意思....先用着吧...改天再来理解....

[jjwang2004]

顶你了~~~~~~~~~~