Code: Select all
Dim args(-1) As Object
Dim objServiceManager As Object = CreateObject("com.sun.star.ServiceManager")
Dim objDesktop As Object = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim objDocument As Object = objDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
Dim objSheet As Object = objDocument.Sheets.getByIndex(0)
Dim oCell As Object = objSheet.getCellRangeByName("B4")
oCell.String = "Escrupuloso"
oCell.CellBackColor = RGB(20,140,180)
I've searched info but there is almost no info about, I'm stucked at this point because I only found info to write the code from above and nothing else.
I'm a beginner with this, Idk if someone can help me.