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
Sds!