- Abre Excel y presiona «Alt + F11» para abrir el Editor de Visual Basic.
- En el Editor de Visual Basic, haz clic en «Insertar» y selecciona «Módulo» para crear un nuevo módulo.
- En el nuevo módulo, escribe el siguiente código:
|
1 2 3 4 5 6 |
Sub RunPowerShellScript() Dim wsh As Object Set wsh = VBA.CreateObject("WScript.Shell") wsh.Run "powershell.exe -ExecutionPolicy Bypass -File C:\ruta\archivo.ps1", 1, True Set wsh = Nothing End Sub |
Este código ejecutará el archivo de script de PowerShell especificado en la ruta de archivo «C:\ruta\archivo.ps1» y el parámetro «-ExecutionPolicy Bypass» permite que el script se ejecute sin restricciones.
- Guarda el módulo con un nombre y cierra el Editor de Visual Basic.
- En Excel, haz clic en «Archivo» y selecciona «Opciones». En la sección «Personalizar cinta de opciones», activa la casilla de verificación «Desarrollador» y haz clic en «Aceptar» para cerrar la ventana de opciones.
- Ahora, en la cinta de opciones, deberías ver la pestaña «Desarrollador». Haz clic en ella y selecciona «Insertar» en la sección «Controles». Selecciona el botón de comando y dibuja el botón en la hoja de trabajo.
- Haz clic derecho en el botón de comando y selecciona «Asignar macro». Selecciona la macro «RunPowerShellScript» que acabas de crear y haz clic en «Aceptar».
- Ahora, cuando hagas clic en el botón de comando, se ejecutará el script de PowerShell especificado en el código de macro.