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

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

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

Notapor physic » Jue Nov 08, 2018 2:41 pm

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
physic
 
Mensajes: 77
Registrado: Lun Oct 29, 2018 12:55 am

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

Notapor fornelasa » Jue Nov 08, 2018 10:46 pm

Una posible guía o manera de hacerlo:
Cambia a tu carpeta correcta
Código: Seleccionar todo   Expandir vistaContraer vista
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.1.2 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3144
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

Notapor physic » Vie Nov 09, 2018 10:54 am

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
physic
 
Mensajes: 77
Registrado: Lun Oct 29, 2018 12:55 am


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado