Visual Basic para Aplicaciones - Ejecutar archivo desde una carpeta

Life is soft - evento anual de software empresarial
 
Vista:

Ejecutar archivo desde una carpeta

Publicado por pablo diaz (1 intervención) el 23/09/2016 03:44:32
Buenas noches, deseo que me ayuden lo que pasa es lo siguiente:

Tengo una base de datos la cual cuenta con codigos unicos y su información que corresponde
Lo que estoy generando es un buscador de dicha informacion para lo cual he designado botones que muestran dicha información; sin embargo tengo un boton el cual ejecuta un archivo pdf (la cual contiene informacion de cada codigo) cuando encuentra el archivo lo ejecuta directamente, pero cuando no lo encuentra se genera un error cerrandose y pidiendome depurar.

Lo que quiero que ocurra es crear un msgbox que diga que si no encuentra el archivo ( o el nombre de archivo) me diga no existe dicho archivo y pueda seguir ejecutando otro codigo.

Algo asi:
1
2
3
4
5
6
7
8
9
Private Sub CommandButton5_Click()
    'Sheets("Hoja3").Select
    'ActiveCell.FormulaR1C1 = TextBox1
    'Range("D6").Select
 
     archivo = Worksheets("Hoja2").Range("H3") & TextBox1
     Dim objShell As Object
     Set objShell = CreateObject("WScript.Shell")
     objShell.Run archivo & ".pdf"

Espero su ayudo, quedando agradecido

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Ejecutar archivo desde una carpeta

Publicado por Antoni Masana (498 intervenciones) el 23/09/2016 07:17:57
Tiene que poner una verificación


1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton5_Click()
    'Sheets("Hoja3").Select
    'ActiveCell.FormulaR1C1 = TextBox1
    'Range("D6").Select
 
    archivo = Worksheets("Hoja2").Range("H3") & TextBox1
    if Dir(archivo & ".pdf") <> "" Then
       Dim objShell As Object
       Set objShell = CreateObject("WScript.Shell")
       objShell.Run archivo & ".pdf"
    Else
       MsgBox "No encuentro el fichero: " & archivo & ".pdf"
    End If

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar