DEFINE VARIABLE oService AS COM-HANDLE no-undo.
DEFINE VARIABLE oDesktop AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE oSheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE oSheets AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE oCellRange AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE oDocument AS COM-HANDLE no-undo.
DEFINE VARIABLE Args AS RAW NO-UNDO.

CREATE "com.sun.star.ServiceManager" oService.
oDesktop=oService:createinstance("com.sun.star.frame.Desktop").
/* oDocument=oDesktop:loadComponentFromURL("private:factory/scalc","_blank",0,Args). */
oDocument=oDesktop:loadComponentFromURL("file:/" + "C:\TEMP\Erfolgsrechnung.xls", "_blank", 0, Args).

MESSAGE '1'
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

oSheets = oDocument:getSheets().
oSheet = oSheets:GetByIndex(0).
/* oCellRange = oSheet:Getcellrangebyname("a1"). */
/* oCellRange:STRING="OpenOffice!".              */
MESSAGE 'open'
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
RELEASE OBJECT oCellRange NO-ERROR.
RELEASE OBJECT oSheet NO-ERROR.
RELEASE OBJECT oSheets NO-ERROR.
RELEASE OBJECT oDocument NO-ERROR.
RELEASE OBJECT oDesktop NO-ERROR.
release object oService NO-ERROR.
MESSAGE "Done!" VIEW-AS ALERT-BOX.