Private Sub 产品图纸_Click()
On Error GoTo Err_产品图纸_Click
'Debug.Print Me.产品图纸.Hyperlink.TextToDisplay
Dim a As String
Dim b As String
a = Me.产品图纸.Hyperlink.Address
b = right(a, 3)
If b = "pdf" Then
If Dir("d:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe") = "" And Dir("c:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe") = "" Then
MsgBox "在盘上没有找到可以打开这个文件的程序,请确定是否将Acrobat安装到了其它的硬盘上或者是没有安装."
Exit Sub
End If
Dim stAppName As String
If Dir("d:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe") = "" Then
stAppName = "c:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe" & " " & a
Else
stAppName = "d:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe" & " " & a
End If
Call Shell(stAppName, 1)
End If
Exit_产品图纸_Click:
Exit Sub
Err_产品图纸_Click:
MsgBox Err.Description
Resume Exit_产品图纸_Click
End Sub
这是我的解决方案,你可以参考.
