Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub aaa()
Call ShellExecute(Application.hwnd, "Open", "E:\你的PDF文件路径\"["& A1& "]"&.pdf ", vbNullString, vbNullString, 5)
End sub
Sub zldccmx()
Dim Rng As Range
For Each Rng In Selection
If Rng.Column = 3 And Rng.Row >= 7 Then
文件名 = Rng.Value
jf = InStrRev(文件名, "\")
P_A = Left(文件名, jf - 1)
文件名 = Mid(文件名, jf + 1)
ChDir P_A
ChDrive Left(Rng.Value, 1)
Shell "C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe /p /h " & 文件名
End If
Next
End Sub