
Sub ApriFile1()
'Esegue file
On Error GoTo error
sPath = ActiveWorkbook.Path
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (sPath & "archivio1file1.pdf"))
Exit Sub
error:
MsgBox Err.Description, vbExclamation, "Error"
End Sub |
