Unir Varios ODS

Discute sobre la aplicación de hojas de cálculo

Unir Varios ODS

Notapor Rehen86 » Mar Feb 20, 2018 7:55 pm

Saludos a todos!
Vengo de este tema https://forum.openoffice.org/es/forum/v ... vos#p50922 pero no logro que funcione la macro. Tengo instaldo EasyDev 2.7.3...
Al ejecutar Main2, solo abre un nuevo documento el cual queda vacio. Intente cambiando \ por / en la ruta donde Obtenemos todos los archivos ODS... y tampoco nada.

Código: Seleccionar todo   Expandir vistaContraer vista
Sub Main2
   Dim options(0) As New com.sun.star.beans.NamedValue
   
   util = createUnoService("org.universolibre.EasyDev")
   source = createUnoStruct("org.universolibre.EasyDev.CellRangeAddress")
   target = createUnoStruct("org.universolibre.EasyDev.CellRangeAddress")
   
    'Obtenemos todos los archivos ODS de la ruta especificada
    files = util.getFiles("C:\Nueva carpeta", ".ods")
   'Generamos un nuevo documento destino
   new_doc = util.newDoc("")
   target.Doc = new_doc
   'Abriremos los documentos de forma ocult
   options(0).Name = "Hidden"
   options(0).Value = True
   For i = LBound(files) To UBound(files)
      'Abrimos el documento
      doc = util.openDoc(files(i), options)
      source.Doc = doc
     
      'Copiamos todas las hojas del origen al destino, si tienes OpenOffice
      util.sheetCopyToDoc(source, target, -1, True, False)
      'Copiamos todas las hojas del origen al destino, si tienes LibreOffice     
      'util.sheetInsertFromDoc(source, target, -1, False)
      doc.dispose()
   Next
End Sub


Agradezco si alguien podria orientarme por donde puede estar la falla...
Sds!
Apache OpenOffice 4.1.1/4.1.3
Windows 7/10
Rehen86
 
Mensajes: 6
Registrado: Sab May 13, 2017 7:03 pm

Re: Unir Varios ODS

Notapor MiguelFotovoltaica » Mié Sep 11, 2019 3:50 pm

falla la orden Doc.Dispose...Yo tamebien tengo ese problema
Libreoffice 6.3.0.4 en windows 8.1
MiguelFotovoltaica
 
Mensajes: 4
Registrado: Dom Sep 01, 2019 4:21 pm

Re: Unir Varios ODS

Notapor mauricio » Mié Sep 11, 2019 6:45 pm

No se por que no vi este mensaje antes, es de 2018, de todos modos EasyDev ha cambiado mucho, lo reviso y publico la respuesta.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5878
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 11 invitados