Data do OpenOffice

Pomocí srciptů jsem udělal export údajů do formuláře podacího archu české pošty. Proti klasické sestavě je výhoda že nemusím formulář znovu tvořit, ale jen naplním příslušná pole (sloupce a řádky). Ukázkový příklad:

var
Editor: Variant;
Desktop: Variant;
Document: Variant;
WorkSheet: Variant;
Parametr: Variant;

//inicializuj editor
try
Editor := CreateOLEObject('com.sun.star.ServiceManager');
except
ErrorBox('Nainstalujte OpenOffice.org');
Exit;
end;

Desktop := Editor.CreateInstance('com.sun.star.frame.Desktop');

Parametr := VarArrayCreate([0, -1], varVariant);

Document := Desktop.LoadComponentFromURL('soubor.xls', '_blank', 0, Parametr);

WorkSheet := Document.getSheets.getByIndex(0);

Document.StoreAsUrl('soubor1.xls', Parametr);

Document.Dispose;

Document := Null;

WorkSheet := Null;

Editor:= Unassigned;