Saludos,
es necesario construir un botón en el Archivo A con la siguiente Macro:
Cuando se pulsa el botón del archivo A, debe abrir una secuencia de 5 nuevos archivos: B, C, D, E, F
después de abrir el último archivo F, la macro debe volver a la ubicación para el archivo A, en la hoja de cálculo 3, en la celda F6.
muchas gracias.
[Resuelto] Abrir varios archivos y volver a la ubicación
[Resuelto] Abrir varios archivos y volver a la ubicación
Última edición por physic el Vie Nov 09, 2018 10:58 am, editado 1 vez en total.
LibreOffice 5.4.4.2 >>> Windows 7
Re: macro: Abrir varios archivos y volver a la ubicación
Una posible guía o manera de hacerlo:
Cambia a tu carpeta correcta
Cambia a tu carpeta correcta
Código: Seleccionar todo
Sub fileArchivos
docto = ThisComponent
hojas = docto.Sheets
hTres = hojas.getByIndex(2)
celda = hTres.getCellRangeByName("F6")
ruta = ConvertToURL("C:\Users\Federico\Downloads\")
Dim Args(0) as new com.sun.star.beans.PropertyValue
Args(0).Name = "MacroExecutionMode"
Args(0).Value = 4
bFile = StarDesktop.loadComponentFromURL(ruta & "B.ods", "_blank", 0 ,Args())
cFile = StarDesktop.loadComponentFromURL(ruta & "C.ods", "_blank", 0 ,Args())
dFile = StarDesktop.loadComponentFromURL(ruta & "D.ods", "_blank", 0 ,Args())
eFile = StarDesktop.loadComponentFromURL(ruta & "E.ods", "_blank", 0 ,Args())
fFile = StarDesktop.loadComponentFromURL(ruta & "F.ods", "_blank", 0 ,Args())
aFile = StarDesktop.loadComponentFromURL(ruta & "A.ods", "_default", 0 ,Args())
docto.currentController.Select(celda)
End Sub
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Re: macro: Abrir varios archivos y volver a la ubicación
sr. Federico,
muy agradecido por su ayuda en la solución de mis temas. fue excelente esta solución.
abrazos.
muy agradecido por su ayuda en la solución de mis temas. fue excelente esta solución.
abrazos.
LibreOffice 5.4.4.2 >>> Windows 7