Открыть excel с множеством листов в dbgrid

[Алена_=)))]

здравствуйте, есть excel файлы всегда одинаковой структуры, но с разным количеством листов, требуется вывод в dbgrid только некоторых столбцов но всех листов этого файла, подскажите как используя ado открыть excelвский файл со всеми его листами но не всеми столбцами, а только теми кот требуются?
сейчас делаю так (для открытия одного листа и всех столбцов, с запросами не в ладах):

procedure TForm6.Button3Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then exit;

  ADOConnection1.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + OpenDialog1.FileName + ';User ID=Admin;Password=;Extended Properties=Excel 8.0';

  ADOConnection1.Open;

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from [Б.К.136$]'); 
  ADOQuery1.Open;
 

procedure TForm6.FormActivate(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
end;

для вывода определенных столбцов делала так но конечно же не сработало:

ADOQuery1.SQL.Add('select [улица], [номер дома], [Год постройки],[Общая площадь дома] from [Б.К.136$]');

на форме adoconnection, datasource, adoquery, dbgrid и кнопочка соответственно)
а хотя вот весь проект=)

[Stilet]

ADOQuery1.SQL.Add('select * from [Б.К.136$],[Б.К.289$],[Б.К.+100500$]');

Т.е. перечислить их через запятую.
Хотя возможно этот вариант не понравится - это умножение.
Тут придется что-то типа:

select [улица], [номер дома], [Год постройки],[Общая площадь дома] from [Б.К.136$] union all
select [улица], [номер дома], [Год постройки],[Общая площадь дома] from [Б.К.289$] union all
select [улица], [номер дома], [Год постройки],[Общая площадь дома] from [Б.К.+100500$]

[Алена_=)))]

ошибка: параметр [улица] не имеет значения по умолчанию..и так с любым параметром, что может быть?

[Алена_=)))]

ой, спасибо, разобралась)

[Stilet]

разобралась)

Поделись решением )