如何解决在VBA中打开特定页码上的PDF
| 我正在尝试在访问表单上创建一个按钮，以允许用户查看表单中包含数据的相应页面（在这种情况下，部件号显示在表单上，我希望按钮可以打开零件标准文件以显示该零件的蓝图/图表） 我已尝试在文件路径的末尾使用Adobe的页面参数＃page = pagenum，但是这样做不起作用。 这是我的代码（基本，我知道），但是我试图弄清楚该去哪里。出于显而易见的原因，我已经将文件路径简单地精简了-注意：这不是URL，而是文件路径（如果这很重要）。Private Sub Command80_Click()
Dim loc As String \'location of file
\'loc = Me.FileLoc
loc = \"G:\\*\\FileName.pdf#page=1\"
Debug.Print loc
\'Debug.Print Me.FileLoc
\'Debug.Print Me.FileName
Application.FollowHyperlink loc
End Sub
Private Sub Command2_Click()
pat1 = \"\"\"C:\\Program Files\\Adobe\\Reader 9.0\\Reader\\AcroRd32.exe\"\"\"
pat2 = \"/A \"\"page=20\"\"\"
pat3 = \"\"\"G:\\*\\FileName.pdf\"\"\"
Shell pat1 & \" \" & pat2 & \" \" & pat3,vbNormalFocus
End Sub
解决方法
正确的方法可能是在系统注册表中查找acrobat reader可执行文件的位置。我发现这通常比其应有的麻烦多，尤其是如果我对将要安装程序的所有位置都有一定的控制权（例如，在单个Intranet中）。通常我最终会使用我编写的以下函数：
\'---------------------------------------------------------------------------------------
\' Procedure : FirstValidPath
\' Author : Mike
\' Date : 5/23/2008
\' Purpose : Returns the first valid path found in a list of potential paths.
\' Usage : Useful for locating files or folders that may be in different locations
\' on different users\' computers.
\' Notes - Directories must be passed with a trailing \"\\\" otherwise the function
\' will assume it is looking for a file with no extension.
\' - Returns Null if no valid path is found.
\' 5/6/11 : Accept Null parameters. If all parameters are Null,Null is returned.
\'---------------------------------------------------------------------------------------
\'
Function FirstValidPath(ParamArray Paths() As Variant) As Variant
Dim i As Integer
FirstValidPath = Null
If UBound(Paths) - LBound(Paths) >= 0 Then
For i = LBound(Paths) To UBound(Paths)
If Not IsNull(Paths(i)) Then
If Len(Dir(Paths(i))) > 0 Then
FirstValidPath = Paths(i)
Exit For
End If
End If
Next i
End If
End Function
PathToUse = FirstValidPath(\"C:\\Program Files\\Adobe\\Reader 9.0\\Reader\\AcroRd32.exe\",_
\"C:\\Program Files\\Acrobat\\Reader.exe\",_
\"C:\\Program Files (x86)\\Acrobat\\Reader.exe\",_
\"C:\\Program Files\\Acrobat\\12\\Reader.exe\")
pat1 = \"\"\"\" & PathToUse & \"\"\"\"
Function RegKeyRead(i_RegKey As String) As String
Dim myWS As Object
On Error Resume Next
\'access Windows scripting
Set myWS = CreateObject(\"WScript.Shell\")
\'read key from registry
RegKeyRead = myWS.RegRead(i_RegKey)
End Function
Function RegKeyExists(i_RegKey As String) As Boolean
Dim myWS As Object
On Error GoTo ErrorHandler
\'access Windows scripting
Set myWS = CreateObject(\"WScript.Shell\")
\'try to read the registry key
myWS.RegRead i_RegKey
\'key was found
RegKeyExists = True
Exit Function
ErrorHandler:
\'key was not found
RegKeyExists = False
End Function
Function GetARE(i_RegKey As String) As String
Dim InPath As String
Dim InKey As String
Dim Ind As Integer
Dim PriVer As String
Dim SubVer As String
Dim Exists As Boolean
Exists = False
PriVer = 1
SubVer = 0
For Ind = 1 To 1000
If SubVer > 9 Then
PriVer = PriVer + 1
SubVer = 0
End If
Exists = RegKeyExists(i_RegKey + \"\\\" + PriVer + \".\" + SubVer + \"\\InstallPath\\\")
SubVer = SubVer + 1
If Exists = True Then
SubVer = SubVer - 1
InKey = i_RegKey + \"\\\" + PriVer + \".\" + SubVer + \"\\InstallPath\\\"
InPath = RegKeyRead(InKey)
GetARE = InPath + \"\\AcroRd32.exe\"
Exit For
End If
Next
End Function
Sub test()
Dim rando As String
rando = GetARIP(\"HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Adobe\\Acrobat Reader\")
MsgBox (rando)
End Sub
Function GetShellFileCommand(FileType As String,Optional Command As String)
Const KEY_ROOT As String = \"HKEY_CLASSES_ROOT\\\"
Dim sKey As String,sProgramClass As String
\' All File Extensions should start with a \".\"
If Left(FileType,1) <> \".\" Then FileType = \".\" & FileType
\' Check if the File Extension Key exists and Read the default string value
sKey = KEY_ROOT & FileType & \"\\\"
If RegKeyExists(sKey) Then
sProgramClass = RegKeyRead(sKey)
sKey = KEY_ROOT & sProgramClass & \"\\shell\\\"
If RegKeyExists(sKey) Then
\' If no command was passed,check the \"shell\" default string value,for a default command
If Command = vbNullString Then Command = RegKeyRead(sKey)
\' If no Default command was found,default to \"Open\"
If Command = vbNullString Then Command = \"Open\"
\' Check for the command
If RegKeyExists(sKey & Command & \"\\command\\\") Then GetShellFileCommand = RegKeyRead(sKey & Command & \"\\command\\\")
End If
End If
End Function
Debug.Print GetShellFileEx(\"PDF\")
\"C:\\Program Files (x86)\\Adobe\\Reader 11.0\\Reader\\AcroRd32.exe\" \"%1\"
Private Sub CommandButton3_Click()
Dim strFile As String
R = 0
If TextBox7 = \"CL\" Then
R = 2
\' Path and filename of PDF file
strFile = \"E:\\Users\\Test\\Cupertino Current system.pdf\"
ActiveWorkbook.FollowHyperlink strFile
End If
if R = 0 Then
MsgBox \"Wrong Code\"
ComboBox1 = \"\"
TextBox1 = Empty
\'ComboBox1.SetFocus
End If
End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。