Desde excel vba como arrancar una macro en otro dispositivo
Tengo dos libros de excel que hacen funciones distintas (macros VBA), cada uno en un ordenador. Los dos están en la misma red. Desde uno quiero arrancar el otro.
¿
1 Respuesta
Respuesta de Rafael Vera
Aquí tienes un ejemplo de cómo hacerlo:
Sub ArrancarMacroEnOtroDispositivo()
Dim WshShell As Object
Dim rutaArchivo As String
' Ruta del archivo de Excel en el otro dispositivo
rutaArchivo = "\\nombre_del_equipo\ruta_del_archivo.xlsb"
' Crear un objeto WshShell
Set WshShell = CreateObject("WScript.Shell")
' Ejecutar el archivo de Excel en el otro dispositivo
WshShell.Run "excel.exe """ & rutaArchivo & """!NombreDeLaMacro"
' Esperar un tiempo suficiente para que el otro dispositivo cargue el archivo de Excel
Application. Wait (Now + TimeValue("0:00:05"))
' Llamar a la macro en el otro dispositivo
Application. OnTime Now, "NombreDeLaMacroEnElOtroDispositivo"
End SubAsegúrate de reemplazar "\\nombre_del_equipo\ruta_del_archivo.xlsb" con la ruta correcta del archivo de Excel en el otro dispositivo, y "NombreDeLaMacro" con el nombre de la macro que deseas ejecutar en el otro dispositivo.
