Unir Varios ODS

[Rehen86]

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

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!

[MiguelFotovoltaica]

falla la orden Doc.Dispose...Yo tamebien tengo ese problema

[mauricio]

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.