загрузка таблиц excel в delphi

[Ромыч]

Подскажите пожалуйста как загрузить таблицу excel в delphi и отобразить ее в dbgrid'e, для дальнейшей работы с ней. Например, чтобы можно было выполнять в ней поиск.

[Stilet]

Через ADO+соответствующий провайдер ODBC, и работать с ней как с БД

[Ромыч]

Сообщение от Stilet

Через ADO+соответствующий провайдер ODBC, и работать с ней как с БД

Stilet я пробовал через ADO, но у меня не получилось. Может быть конечно у меня руки кривые. А других вариантов нет?

[Stilet]

Ну есть конечно, например через TexcellApplication, но тогда без DBкомпонентов.

Вот специально только что проверил в АДО запрос select * from [test_pf_1$] где test_pf_1 - таблица в книге, работает на ура.

[Ромыч]

Значит все-таки руки кривые. Stilet а ты можешь кинуть краткую инструкцию подключения.

[Stilet]

Могу:
Ну форму ты наверное создаш сам, и ADOQuery тоже сам кинеш и присоединиш к гриду.

Короче, в АДО открой настройку ConnectionString. В Build выбери провайдер ODBC. Клацни Некст, и включи Use Connection String, (ну предположим что настройки на Эхель у тебя еще небыло). Клацни по Build рядом, и в открывшемся диалоге введи имя нового DSN - например MyExel. Клацни New, и выбери в провайдерах драйвер для Ехеля (сам найдеш его, ну а если его нет то дальше можеш не читать).
Некст - Бровзе и сохрани настройки в файл (называй его как хочеш пусть MyExel2).
Далее - Готово - Выбираем тип Эхеля, и файл XLS к которому "буду говорить без бамажки" по нажатию кнопки "Выбор Книги".
Выбрал? - Ок - Ок - Ок (если нуна)
На всякий пожарный клацни по Test Connection - убедись что коннект путевый.
Ок - Ок и лезем в инспекторе в SQL АДОшки, где пишем:
select * from [test_pf_1$] где test_pf_1 - таблица в книге
(ну это у меня так, а как ты свои книги и таблицы называеш я не знаю, потому как телепатор еще не включил)

Все! Активируй свой АДО и наслаждайся данными в табличке.
Ферштехен?

[Ромыч]

Спасибо, Stilet попробую

[Cantana]

как на счет такого способа

uses 
  ComObj; 
function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean; 
const 
  xlCellTypeLastCell = $0000000B; 
var 
  XLApp, Sheet: OLEVariant; 
  RangeMatrix: Variant; 
  x, y, k, r: Integer; 
begin 
  Result := False; 
  // Create Excel-OLE Object 
  XLApp := CreateOleObject('Excel.Application'); 
  try 
    // Hide Excel 
    XLApp.Visible := False; 

    // Open the Workbook 
    XLApp.Workbooks.Open(AXLSFile); 

    // Sheet := XLApp.Workbooks[1].WorkSheets[1]; 
    Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1]; 

    // In order to know the dimension of the WorkSheet, i.e the number of rows 
    // and the number of columns, we activate the last non-empty cell of it 

    Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate; 
    // Get the value of the last row 
    x := XLApp.ActiveCell.Row; 
    // Get the value of the last column 
    y := XLApp.ActiveCell.Column; 

    // Set Stringgrid's row &col dimensions. 

    AGrid.RowCount := x; 
    AGrid.ColCount := y; 

    // Assign the Variant associated with the WorkSheet to the Delphi Variant 

    RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value; 
    //  Define the loop for filling in the TStringGrid 
    k := 1; 
    repeat 
      for r := 1 to y do 
        AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R]; 
      Inc(k, 1); 
      AGrid.RowCount := k + 1; 
    until k > x; 
    // Unassign the Delphi Variant Matrix 
    RangeMatrix := Unassigned; 

  finally 
    // Quit Excel 
    if not VarIsEmpty(XLApp) then 
    begin 
      // XLApp.DisplayAlerts := False; 
      XLApp.Quit; 
      XLAPP := Unassigned; 
      Sheet := Unassigned; 
      Result := True; 
    end; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Xls_To_StringGrid(StringGrid1, 'C:\Table1.xls') then 
    ShowMessage('Table has been exported!'); 
end;

[5naip]

Сообщение от Stilet

Могу:
Ну форму ты наверное создаш сам, и ADOQuery тоже сам кинеш и присоединиш к гриду.

Короче, в АДО открой настройку ConnectionString. В Build выбери провайдер ODBC. Клацни Некст, и включи Use Connection String, (ну предположим что настройки на Эхель у тебя еще небыло). Клацни по Build рядом, и в открывшемся диалоге введи имя нового DSN - например MyExel. Клацни New, и выбери в провайдерах драйвер для Ехеля (сам найдеш его, ну а если его нет то дальше можеш не читать).
Некст - Бровзе и сохрани настройки в файл (называй его как хочеш пусть MyExel2).
Далее - Готово - Выбираем тип Эхеля, и файл XLS к которому "буду говорить без бамажки" по нажатию кнопки "Выбор Книги".
Выбрал? - Ок - Ок - Ок (если нуна)
На всякий пожарный клацни по Test Connection - убедись что коннект путевый.
Ок - Ок и лезем в инспекторе в SQL АДОшки, где пишем:
select * from [test_pf_1$] где test_pf_1 - таблица в книге
(ну это у меня так, а как ты свои книги и таблицы называеш я не знаю, потому как телепатор еще не включил)

Все! Активируй свой АДО и наслаждайся данными в табличке.
Ферштехен?

хотел создать новую тему,да в поиске наткнулся на это.Как раз по моей проблеме.
Я чето никак не пойму где ты "ADOQuery присоединиш к гриду"...я их никак не могу соединить. У меня Delphi 7.
Вообще, проблема у меня состоит в том, что надо подключиться к базе MSSQL к определенной таблице и начать сравнивать, есть ли в БД записи, находящиеся в екселевском файле.
Моэжет быть это как-то можно проще сделать?