如何取得EXCEL工作簿中的第一个工作表的名称???

Question

在EXCEL导入数据库中的碰到的一个问题，工作表的名称不固定，不是默认的的sheet1,如何取得第一个工作表的名称。

Answer 1

var
  FilePath: string;
  List: TStrings;
begin
  FilePath := 'G:\Book1.xls';
  List := TStringList.Create;
  ADOConnection1.Close;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    FilePath + ';Extended Properties=Excel 8.0;Persist Security Info=False';
  ADOConnection1.GetTableNames(List);
  if List.Count > 0 then
    ShowMessage(List[0]);
  List.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————