¿Tengo un archivo BAT que me manda PING a el numero de sucursal que escriba, se podrá que lea ese numero desde una celda excel?
Adjunto el código del BAT
@ECHO OFF
:Inicio
CLS
Echo.
Echo.
Echo.
ECHO Escribe el Numero de la Sucursal a 4 dígitos posteriormente presiona ENTER
Echo.
set nsuc=
set /p nsuc=
if '%nsuc%'=='salir' goto fin
if '%nsuc%'=='SALIR' goto fin
if not '%nsuc%'=='' set nsuc=%nsuc:~0,4%
set pva=s%nsuc%-AA
set pv1=s%nsuc%-TO1
set pv2=s%nsuc%-TO2
set pv3=s%nsuc%-TO3
set pv4=s%nsuc%-TO4
set pv5=s%nsuc%-TO5
set pv6=s%nsuc%-CO1
set pv7=s%nsuc%-CO2
START PING.exe %pva% -t
START PING.exe %pv1% -t
START PING.exe %pv2% -t
START PING.exe %pv3% -t
START PING.exe %pv4% -t
START PING.exe %pv5% -t
START PING.exe %pv6% -t
START PING.exe %pv7% -t
1 Respuesta
Visita:
Cursos de Excel y Macros - YouTube
---
Te paso un ejemplo:
Sub runbat()
Dim sfile As String
Dim statusnum As String
'
'aquí la ruta y nombre de tu bat aquí la celda con el pin de la sucursal
sfile = "c:\trabajo\files\arch.bat " & Range("B2").Value
statusnum = Shell(sfile, vbMaximizedFocus)
End Sub---
En tu bat cambia esta línea:
ECHO Escribe el Numero de la Sucursal a 4 dígitos posteriormente presiona ENTER
Por esta:
ECHO %1
Recomendaciones de mi canal:
Consejos para desarrollar macros . curso de excel, curso de macros, excel, macros - YouTube
Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Sal u dos Dante Amor
¡Gracias! Funciona perfecto, solo que no se si hay manera de que se queden abiertas las ventanas del ping cuando estas responden, ya que es casi instantáneo que se cierran, cuando lo ejecuto manualmente las ventanas no se cierran. ¡De antemano excelente ayuda!
Visita:
Cursos de Excel y Macros - YouTube
En tu archivo bat, después de la última línea, agrega esta línea:
Pause
Otras recomendaciones que no te puedes perder:
