[Resuelto] Abrir varios archivos y volver a la ubicación

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

[Resuelto] Abrir varios archivos y volver a la ubicación

Mensaje por physic »

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.
Ú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
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: macro: Abrir varios archivos y volver a la ubicación

Mensaje por fornelasa »

Una posible guía o manera de hacerlo:
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!
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: macro: Abrir varios archivos y volver a la ubicación

Mensaje por physic »

sr. Federico,

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
Responder