excel - 显示文本链接以从 Excel 打开特定的 PDF 页面

Question

我在网上找到了一个 VBA 代码，它在 IE 中打开了一个内部(共享驱动器)PDF 文档页面(例如转到 PDF 文件的第 8 页)。我想在单元格中显示文本供用户单击(例如“单击此处查看”)。

问题 : 单元格当前显示'0'，我必须去功能栏并按[Enter] 来执行。

Excel 版本 : 2003

函数调用 :

=GoToPDFpage("S:\...x_2011.pdf",8)

VBA代码 :

Function GoToPDFpage(Fname As String, pg As Integer)
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate Fname & "#page=" & pg
.Visible = True
End With
End Function

:编辑:

我能够显示文本，但它仍然不是我想要的链接。

="Click to view" & GoToPDFpage("S:\...x_2011.pdf",8)

谢谢您的帮助。

Answer 1

如果您没有高度复杂的工作簿/工作表，您可以尝试以下操作:

将“点击查看”单元格变成具有以下特征的超链接。

让它指向自己

单元格内的文本必须始终是字符串 页= 加上您要打开的 pdf 文件的编号。例如:页=8

然后转到工作集模块并粘贴以下代码:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    If Left(ActiveCell.Value, 4) = "Page" Then

        GoToPDFpage Range("A1").Value, Mid(ActiveCell.Value, 6)
        'This code asumes that the file address is writen in the cell A1

    End If
    '
End Sub
'

每次您在工作表中运行超链接时，上述编写的代码都会触发。
由于超链接始终指向自身，因此“Activecell.Value”将始终包含您要打开的页码。

我假设您可以将文件地址放在单元格 A1 中。您可以修改此部分以指向任何其他单元格。 (包括:当前超链接右侧的单元格等)。

这可能不是最佳选择，但如果您只需要几个单元格中的快速功能，它可能就足够了。

希望能帮助到你 !

编辑:
要使每个 HLink 引用自身，您可以选择具有链接的所有单元格，然后运行此过程:

Sub RefHLink()
    Dim xCell As Range

    For Each xCell In Selection

        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:="", SubAddress:= _
        xCell.Address, ScreenTip:="Click Here", TextToDisplay:="Page="
    Next xCell

End Sub