Импорт данных из Excel

[manula]

Здравствуйте уважаемые товарищи, возник вопрос следующего характера, необходимо выгрузить данные из Excel-книги в компонент DBGridEh или DBGrid, используя при этом библиотеку ComOBJ или работа с ADO- компонентами.
При связке с ADO-компонентами использую ADOConnection->ADOQuery->DataSource->DBGridEh
Пробовал выгружать в простой StringGrid все получилось, но я это осуществлял другими методами, есть у кого нибудь исходники аналогичных программ или как это можно программно осуществить.
Ответы на подобие: "Используй со вкладки Servers компонент ExcelApplication не рассматриваются".
Не могли бы вы мне помочь, буду очень благодарен за оказанную помощь.

[eval]

а помочь то чем?
единственное так это то что ни в DBGridEh ни в DBGrid данных нет, поэтому туда данные загрузить не получиться.
в каком виде данные в Excel?

[Stilet]

Я бы лучше настроил ODBC на XLS файл. А потом через ADO подключился бы к листу как к таблице.
http://www.askit.ru/custom/vba_offic...connection.htm
Идея ясна?

[Прик]

Даже проще можно. Без ODBC драйвера.

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+
    'Data Source=Книга1.xls;'+ //либо весь путь до файла, но и так работает
    'Mode=Share Deny None;Extended Properties=Excel 8.0';
  ADOConnection1.Open; 
  ADOQuery1.Open; //ADOQuery1 соединен, разумеется, с ADOConnection1
end;

Текст запроса в ADOQuery1: select * from [Лист1$]

Актуальность: Windows XP SP3, MS Office 2007, D7, проверено 28.01.2013.

[Аватар]

Можно и без ODBC

ADO с провайдером Jet.OLEDB. Строка соединения

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Book2.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";Persist Security Info=False

Запрос

SELECT * FROM [Лист1$]

Дубль 2

[manula]

Товарищи благодарю за помощь, сделал таким образом создал 2 процедуры но при этом выдает ошибку такого рода, не могли бы вы еще подсказать в чем проблема.
Вот сам код:

procedure TForm1.ConnectToExcel;
var strConn: WideString;
 begin
 strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +  'Data Source=' + OpenDialog1.FileName + ';' + 'Mode=Share Deny None;Extended Properties=Excel 8.0;';
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:=strConn;
  try
   ADOConnection1.Open;
  except
   ShowMessage('Ошибка Excel '+OpenDialog1.FileName+' !');
  raise;
 end;
end;

procedure TForm1.FetchData;
begin
 OpenDialog1.execute;
 ConnectToExcel;
 ADOQuery1.SQL.Text:='SELECT * FROM [Лист1$]'; // Ругается на эту строку
 try
  AdoQuery1.Open;
 except
  ShowMessage( 'Ошибка SQL' + opendialog1.FileName +'!');
 raise;
 end;
end;

А вот сама ошибка:

Внешняя таблица не имеет предполагаемый формат

Я по сути при загрузке использую только (.xls) расширение.

[eval]

потому что чукча не читатель, а я сразу спросил -
в каком виде данные в Excel?
но вам как видится надо скорее код и не важно все остальное...

[manula]

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

потому что чукча не читатель, а я сразу спросил -
в каком виде данные в Excel?
но вам как видится надо скорее код и не важно все остальное...

Вот ту как раз вы не правы и мне есть до этого дело и я хочу в этом разобраться, но по сути за малым опытом работы с Excel, не до конца пониманию в чем ошибка(и как определить какой драйвер лучше использовать для работы Excel-книгами), а данные хранятся просто в виде текста, таблица со значениями.

[Аватар]

То что предлагалось в постах #4 и #5 для xls в родном формате. Данные в виде текста с разделителями тоже можно прочитать c помощью JET OLEDB, только строка соединения другая, сейчас по ходу не помню, но в интернете можно найти. Да и здесь на форуме я когда-то давал пример, может на другом (враждебном), не помню

[manula]

Сообщение от Аватар

То что предлагалось в постах #4 и #5 для xls в родном формате. Данные в виде текста с разделителями тоже можно прочитать c помощью JET OLEDB, только строка соединения другая, сейчас по ходу не помню, но в интернете можно найти. Да и здесь на форуме я когда-то давал пример, может на другом (враждебном), не помню

Попробовал сделать таким образом, возникла ошибка другого рода:

strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +  'Data Source=' + OpenDialog1.FileName + ';' + ';User ID=Admin;Extended Properties=Excel 7.0;';

Ошибка: Невозможно найти устанавливаемый ISAM