Código: Seleccionar todo
'se declaran los objetos necesarios para la insercion a la hoja de excel
Dim odoc As Object
Dim odesktop As Object
Dim oServiceManager As Object
Dim osheett As Object
Dim anoargs(-1)
oServiceManager = CreateObject("com.sun.star.ServiceManager")
odesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
odoc = odesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, anoargs)
osheett = odoc.getSheets().getByIndex(0)
osheett = odoc.sheets