| 1234567891011121314151617181920212223242526272829 |
- 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.
|
