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 LongSub aaa()Call ShellExecute(Application.hwnd, "Open", "E:\你的PDF文件路径\"["& A1& "]"&.pdf ", vbNullString, vbNullString, 5) End subSub 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 ****************************************************供参考************************************************
End subSub 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
****************************************************供参考************************************************