如何取EXCEL 文件里面的表名？

原来是参数问题



dm.ADOConnUser.GetTableNames(lsttablename.Items ,False ); 就不行

dm.ADOConnUser.GetTableNames(lsttablename.Items ,True );就可以了

procedure TADOConnection.GetTableNames(List: TStrings;

  SystemTables: Boolean);

var

  TypeField,

  NameField: TField;

  TableType: string;

  DataSet: TADODataSet;

begin

  CheckActive;

  DataSet := TADODataSet.Create(nil);

  try

    OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);

    TypeField := DataSet.FieldByName('TABLE_TYPE'); { do not localize }

    NameField := DataSet.FieldByName('TABLE_NAME'); { do not localize }

    List.BeginUpdate;

    try

      List.Clear;

      while not DataSet.EOF do

      begin

        TableType := TypeField.AsString;

        if (TableType = 'TABLE') or (TableType = 'VIEW') or     { do not localize }

           (SystemTables and (TableType = 'SYSTEM TABLE')) then { do not localize }

          List.Add(NameField.AsString);

        DataSet.Next;

      end;

    finally

      List.EndUpdate;

    end;

  finally

    DataSet.Free;

  end;

end;