............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

LLAMA EJECUTABLES DESDE EXCEL... NOTPAD Y WINDOWS MEDIA PLAYER!!...

Ver el tema anterior Ver el tema siguiente Ir abajo

LLAMA EJECUTABLES DESDE EXCEL... NOTPAD Y WINDOWS MEDIA PLAYER!!...

Mensaje por gusmario2011 el Mar Nov 29, 2011 2:06 pm

LLAMA EJECUTABLES DESDE EXCEL... NOTPAD Y WINDOWS MEDIA PLAYER!!...

Hola no recuerdo si fue aqui o en otro foro donde encontre este codigo y lo modifique un poco, espero les sirva...
Código:
Private Sub CommandButton1_Click()
  On Error Resume Next
  AppVal = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)
  If Err <> 0 Then
      MsgBox "Can't start the application.", vbCritical, "Error"
  End If
End Sub
Código:
Private Sub CommandButton2_Click()
  On Error Resume Next
  AppVal = Shell("C:\Program Files\Windows Media Player\wmplayer.exe", 1)
  If Err <> 0 Then
      MsgBox "Can't start the application.", vbCritical, "Error"
  End If
End Sub
saludos desde Mexicali Mexico...

gusmario2011

Masculino Cantidad de envíos : 9
Edad : 50
Ciudad - Pais : mexicali - mexico
Version de Excel : 2007
Fecha de inscripción : 20/11/2011

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.