指向 Excel 单元格的超链接

Question

快速摘要

如何在 Excel 中创建可在 Firefox 中使用的特定单元格的超链接，或在 JavaScript 中实现相同的结果？

详细说明

我有一个 Excel 电子表格，用户可以在其中输入数据。然后使用该电子表格生成一些 SVG 图表。这些图表在 Firefox 中显示（尽管如果其他方式效果更好，可以更改为其他方式）。我希望 SVG 图表中的对象具有返回到生成这些对象的 Excel 单元格的超链接，以便轻松更改图表背后的数据。

我已经看到有关超链接的建议，例如 file:///C:/path/to/workbook.xls#Sheet1!A57 应该可以解决问题，但这仅适用于 IE 或 Office 应用程序。尝试在 Firefox 中或从“开始”-> 使用此类超链接运行将在上次关闭工作簿时打开最后一个活动单元格处的工作簿。

我会很高兴只使用 IE，当然 IE 不支持 SVG，至少不支持开箱即用。

那么有没有一种方法可以形成一个超链接（或者可能是一些javascript）来打开带有特定工作表和活动单元格的Excel工作簿？

Answer 1

这就是解决这个问题的方法。

在表单上嵌入浏览器对象并导航到生成的图表文件。

由于这是您的浏览器对象，因此您可以捕获用户单击 SVG 超链接时生成的导航事件。

解析导航目标以获取单元格引用，例如“Sheet1！A57”，然后调用Application.Goto“Sheet1！A57”。

示例：将 WebBrowser 和 CommandButton 添加到用户窗体，然后将此代码粘贴到后面。

Private Sub UserForm_Initialize()
    Me.WebBrowser1.Navigate2 "file:///C:\Test.svg"
End Sub

Private Sub CommandButton1_Click()
    Me.WebBrowser1.Navigate2 "workbook:Sheet1!A57"
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Dim pos As Integer
    pos = InStr(1, URL, "workbook:", vbTextCompare)
    If 1 <= pos Then
        Dim cref As String
        cref = Mid(URL, pos + Len("workbook:"))
        Application.Goto Range(cref)

        Cancel = True
    End If
End Sub

Answer 2

我已经使用不同的技术与 FireFox 一起使用了同样的东西。就我而言，Excel 为 GraphViz 生成 DOT，后者为 FireFox 生成 .svg。

链接技术有点丑陋，因为它需要很多小文件，但运行速度很快。您需要选择新的文件类型，或劫持现有的很少使用的文件类型，例如 .xyz。您为 svg 中要返回到 Excel 不同单元格的每个单独节点或边编写一个文件。文件的内容存储文件（工作簿）的名称、工作表和单元格引用。我只是把每个人放在自己的线上。您创建一个 vbscript (.vbs) 作为单独的脚本文件，这将是您的应用程序。该vbscript采用一个参数，即文件名，它的作用是打开文件，读取工作簿名称和工作表名称以及其中的单元格引用，以向excel发送命令以调出该工作簿、工作表和单元格。然后，您需要将 vbscript 应用程序与 FireFox 中的文件类型（例如 .xyz）相关联。使用工具->选项->应用程序。这可能很棘手，因为您必须实际键入 vbs 文件的名称，而不是浏览到它（您可以浏览到该文件夹​​，然后切换到键入）！节点&边缘链接可以通过 .svg 传递（在我的例子中通过 URL 标签通过 DOT）； svg 中的链接应使用 file:/// 形式指向适当的本地生成文件（例如 .xyz 文件之一）。

然后，当您单击 .svg 中的链接时，FireFox 将启动本地 vbscript 作为应用程序，并以文件名作为参数。 vbscript 读取文件的内容，找到 Excel，并向其发送命令以激活正确的位置。完成所有这些之后，脚本就可以将 excel 带到前台。

此 vbscript 片段将获取命令行参数：

arg = Wscript.Arguments(0)

此 vbs 片段将找到 Excel 的运行副本：

设置 objExcel = GetObject(, "Excel.Application")

使用这些类型的命令来读取文件：

设置 objFSO = CreateObject("Scripting.FileSystemObject")
wkbName = objFSO.ReadLine
wksName = objFSO.ReadLine

使用这些类型的命令将消息发送到 Excel：

objExcel.Visible = True
wkb = objExcel.Workbooks(wkbName)
wkb.激活
wks = wkb.Worksheets(wksName)
wks.激活
wks.Rows(rowNum).Select

此代码片段会将 excel 置于最前面（在 win 7 上测试）：

set objWsh = CreateObject("Wscript.Shell")
objWsh.AppActivate objExcel.Name

（奇怪的是 Wscript.Shell.AppActivate objExcel.Name 没有！）