FoxPro 9 : Office automation - Microsoft Excel => OpenOffice Calc

applicable to MS Foxpro (testted on FXP 9 SP2)

 

sample for MS Excel

      LOCAL mbudvar,xlapp,Xlsheet

      mbudvar = GETOBJECT('c:\temp.XLS')

      xlapp = mbudvar.APPLICATION

      xlapp.VISIBLE = .T.

      xlapp.WorkBooks.ADD('c:\tabel.xls')

      Xlsheet = xlapp.ActiveSheet

 

for OO Calc

      LOCAL loOfcMgr, loDesktop, loDocument, args(1), ;

            loCoreReflection, loPropertyValue, loText,;

            loCursor

 

      loOfcMgr = CREATEOBJECT("com.sun.star.ServiceManager")

      loDesktop = loOfcMgr.createInstance("com.sun.star.frame.Desktop")

 

      loCoreReflection = loOfcMgr.createInstance("com.sun.star.reflection.CoreReflection")

      loPropertyValue = CREATEOBJECT("Empty")

      loCoreReflection.forName("com.sun.star.beans.PropertyValue").CREATEOBJECT(@loPropertyValue)

      args[1] = loPropertyValue

      args[1].NAME = "ReadOnly"

      args[1].VALUE = .F.

      COMARRAY(loDesktop,10)

      loDocument = loDesktop.loadComponentFromURL("file:///C:/tabel.xls","blank", 0, @args)