Как считать данные из EXCELевской таблицы

[prw07]

Есть файл .xls мне нужно считать его (поместить в DBGrid или что-то в этом роде) и обработать.
Нашел 2 способа , но не один меня полностью не устраивает:
1. через функцию CreateOleObject('Excel.Application' ), но это меня не устраивает, т.к. данная функция работает только с Microsoft Excel, а мне нужно OpenOffice

Вопрос: можно ли CreateOleObject... использовать с OpenOffice ?

2. Через ADOConnection и ADOQuery (привожу ссылку, т.к. много описания для понимания): http://delphiexpert.ru/view_lesson.php?id=52
Но возникли некоторые проблемы:
1. В DBGrid выводит данные из .xls файла только со второй строки (первую не выводит).

[artemavd]

Приведите код загрузки данных из Excel в DataSet, на который настроен DBGrid.

[Rik]

Вот часть кода для OpenOffice из моих наработок, надеюсь разберетесь

procedure ShowStrahKart(SotrID: LongInt; Data: TDateTime);
var
Office, Desktop, Document, Columns, Range, ooParams, ooFrame: Variant;
V, Cel, Sheet: Variant;
Year, Month, Day, Row, Col: Integer;
begin
//Запускаем SCalc
Office := CreateOleObject('com.sun.star.ServiceManager');
if VarIsNull(Office) or VarIsEmpty(Office) then RaiseException('Не удалось создать офис');
Desktop:= Office.CreateInstance('com.sun.star.frame.Desktop'); //Создаем рабочий стол офиса
V := Office.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
V.Name := 'Hidden';
V.Value := True;
ooParams := VarArrayCreate([0, 0], varVariant);
ooParams[0] := V;
//Загружаем документ или шаблон, можно и таблицу Excel.
Document:= Desktop.LoadComponentFromURL('private:factory/scalc', 'Путь_к_вашему_документу', 0, ooParams);
ooFrame:= Document.getCurrentController.getFr ame;

//Чтобы скрыть OpenOffice, к примеру если пользователь не хочет лицезреть процесс построения отчета
//ooFrame.GetContainerWindow.SetVisib le(False);
//Чтобы отобразить OpenOffice
//ooFrame.GetContainerWindow.SetVisib le(True);

//Получаем первый лист
Sheet := Document.getSheets.getByIndex(0);
//получаем ячейку в позиции Col, Row
Cel := Sheet.getCellByPosition(Col, Row);
Cel.Value := DMR.STRAHINFO.FN('BASE_M_ZP').AsFloat;
Cel := Sheet.getCellByPosition(Col, 18);
Cel.Value := DMR.STRAHINFO.FN('BASE_ZP').AsFloat;
Cel := Sheet.getCellByPosition(Col, 19);
//Если в ячейку нужно записать строку то
Cel.string := 'sdfs';....
//Если в ячейку нужно записать формулу, то
Cel.Formula := '...';....

Читать данные из ячеек аналогичным образом...

Первый запуск OO происходит довольно долго, все последующие в разы быстрее.
Используйте OpenOffice 3.2.1 - работает несравнимо быстрее чем предыдущие версии.

[prw07]

Спасибо за ответы.

Приведите код загрузки данных из Excel в DataSet, на который настроен DBGrid.

procedure TForm1.Button1Click(Sender: TObject);
var strConn: widestring;
begin
strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' +Edit1.Text+ ';' + 'Extended Properties=Excel 8.0;';
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
AdoConnection1.Open;
AdoQuery1.Close;
AdoQuery1.SQL.Text:='SELECT * FROM [Лист1$]';
AdoQuery1.Open;
end;

Rik Большое спасибо. Очень помогло. Но вот как считать данные из ячейки не "догнал". Немогли бы меня "носом ткнуть"?

[Stilet]

носом ткнуть

Тык:

with AdoQuery1 do
while not eof do begin
 for i:=0 to Fields.Count-1 do
  <Кудато>:=Fields[i].AsString;
end;

т.е. просто проходишся по строкам как по записям, и получаешь данные из колонок аки из полей, при каждом проходе в некую переменную.

[prw07]

Спасибо.
Это код для моего примера (через ADOQuery).
"Ткните носом" в примере, который дал Rik

[Stilet]

Cel := Sheet.getCellByPosition(Col, Row); - даст некую ячейки
твояпеременнаятипастрока:=Cel.strin g;

увидел?

[prw07]

ок.
попробую.

[prw07]

Получилось. Работает. Спасибо.

Только есть очередная проблемка. В примере от Rik есть строка для открытия существующего .xls файла:

//Загружаем документ или шаблон, можно и таблицу Excel.
Document:= Desktop.LoadComponentFromURL('priva te:factory/scalc', 'C:\1.xls', 0, ooParams);

Не работает. Не открывает файл c:\1.xls, а создает новый.
Что не так?