Работа с ячейкой OpenOffice Calc

var Sheet, Cell : Variant;
 
  // Как открыть или создать новый файл - тебе известно? Это будет Document...
  // Дальше получаем лист и ячейку, с которой надо работать:
 
  Sheet := Document.getSheets.getByIndex(0);
  Cell := Sheet.getCellByPosition(5, 2); // 5 столбец 2 строка
 
  Cell.Value := '100'; // Пишем в ячейку
  Edit1.Text := Cell.Value; // Или читаем из ячейки

var
  OO : Variant;
 
function MakePropertyValue(PropName, PropValue:string):variant;
var Struct: variant;
begin
    Struct := OO.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Struct.Name := PropName;
    Struct.Value := PropValue;
    Result := Struct;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Document : Variant;
  Desktop: Variant;
  Sheet, Cell: Variant;
  vArr : Variant;
  FileName : string;
begin
  OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
  FileName := 'D:\test\book1.xls';
 
  vArr := VarArrayCreate([0, 1], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'MS Excel 97');
  Document := Desktop.LoadComponentFromURL('file:///' + FileName, '_blank', 0, vArr);
 
  Sheet := Document.getSheets.getByIndex(0);
  Cell := Sheet.getCellByPosition(5, 2); // 5 столбец 2 строка
  Edit1.Text := Cell.Value;
end;

Edit1.Text := Cell.String;

  vArr := VarArrayCreate([0, 2], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'MS Excel 97');
  vArr[1] := MakePropertyValue('Hidden', True);

function MakePropertyValue(PropName : string;
                           PropValue : Variant) : Variant;

ShowWindow(FindWindow(nil, 'C:\1.xls - OpenOffice Calc'), sw_show);
ShowWindow(FindWindow(nil, 'C:\1.xls - OpenOffice Calc'), sw_hide);

FileName := ExtractFilePath(Application.ExeName) + 'book1.xls';

uses
  ComObj;
 
var
  exApp : Variant;
...
begin
...
  exApp := CreateOleObject('Excel.Application');
...
  exApp.Quit;
...
end;

  Document.Close(true);
  Document := Null;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
f:=1;
end;
...
Cell1 := Sheet.getCellByPosition(5, f);    //тут хранится значение, которое будем искать
For i:=1 to RecCount-1 do          //i:=1, т.к. первая строка у меня пуста, а в ОО нумерация начинается с 0
  begin
    Cell2 := Sheet.getCellByPosition(0, i);   //в этом столбце будем искать искомое значение
    If Cell2=Cell1 then f:=[U]№ строки[/U] ([B]как определить № строки - не знаю[/B])
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ControlCell : Variant;
  Cell2 : Variant;
  i : Integer;
begin
  ControlCell := Sheet.getCellByPosition(5, f);
  i := 0;
  repeat
    inc(i);
    Cell2 := Sheet.getCellByPosition(0, i);
  until (i = RecCount) or (Cell2.String = ControlCell.String);
  // тут можешь проверять, найдено ли что-то. Если i = RecCount, то ничего не найдено...
 
  F := i;
  ControlCell := Sheet.getCellByPosition(5, f);
  Document.CurrentController.Select(ControlCell);
end;