Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Dim ret As Variant On Error GoTo error ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Direccion), 1) Exit Sub error: MsgBox Err.Description, vbExclamation, "Error de Ejecución"
donde pone Dirección es la ruta donde está es archivo que quieres abrir. con este código puedes abrir cualquier archivo (siempre que tengas el programa que lo abra,¡¡¡Claro!!!)