Generacion de hoja de calculo (Calc) desde visual Net

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
MGGM3004
Mensajes: 2
Registrado: Mié Nov 05, 2014 5:20 pm

Generacion de hoja de calculo (Calc) desde visual Net

Mensaje por MGGM3004 »

Hola buenas tardes, tengo un problema necesito generar una hoja de calculo desde visual net, ya puedo exportar desde visual net a open office y uso las hojas que se generan por default (las cuales son hoja1, hoja2 y hoja3) pero requiero de mas hojas de calculo, alguien sabra el codigo para generar la hoja desde visual net??, este es el codigo que utilizo para conectarme a calc y utilizar la hoja1.

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
Ayuda por favor!!!
Última edición por SLV-es el Mié Nov 12, 2014 2:03 pm, editado 1 vez en total.
Razón: Encerrar el código macro entre etiquetas [CODE]
openoffice 3.3 en windows 7
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Generacion de hoja de calculo (Calc) desde visual Net

Mensaje por FJCC-ES »

El método es insertNewByName(Nombre, posición)

Código: Seleccionar todo

odoc = odesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, anoargs)
oSheets = odoc.Sheets
Count = oSheets.Count
oSheets.insertNewByName("HojaNueva", Count)
Responder