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:
Espero su ayudo, quedando agradecido
Saludos
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
0
