超链接到单元格？

Question

我想在 Excel 中检索一个单元格的超链接，然后将此超链接粘贴到第三方应用程序中。单击超链接应使用适当的工作簿加载 Excel，并且应使用光标选择该单元格。

超链接应该可以在 OneNote 等微软相关产品中使用；例如，如果我有一个工作簿“D:\abc.xls”并且我想跳转到单元格 C12，我会创建一个像“D:\abc.xls#C12”这样的超链接。

这会奏效；但是，如果我将其粘贴到非 Microsoft 应用程序中，它只会打开 Excel 和工作簿，但不会突出显示单元格。我怎样才能让它工作？

Answer 1

回复评论

这就是我的建议，例如将以下内容保存为 .reg 并导入它

REGEDIT4

[HKEY_CLASSES_ROOT\XLOPEN]
@="URL:Excel Opener"
"URL Protocol"=""

[HKEY_CLASSES_ROOT\XLOPEN\shell\open\command]
@="CSCRIPT.EXE \"C:\\TEMP\\XLOPEN.VBS\" \"%1\""

这使得XLOPEN:// URL 协议处理程序在调用时将运行 XLOPEN.VBS。

将以下内容另存为C:\TEMP\XLOPEN.VBS

rem //get an argument like "XLOPEN://C:\null\text.xlsx/#F55" note extra /
dim arg:  arg = WScript.Arguments.item(0)
dim arr:  arr = (split(ucase(arg), "#"))
rem unmangle the url
dim filename: filename = replace(arr(0), "XLOPEN://", "")
if (right(filename, 1) = "/") then filename = mid(filename, 1, len(filename)-1)
dim xl:   set xl = createobject("excel.application")
xl.Workbooks.Open filename 
xl.range(arr(1)).select
xl.visible = true

现在如果你运行

xlopen://c:\null\test.xlsx#Q50

或使用

<a href="xlopen://c:\null\test.xlsx#Q50">bla bla</a>

Windows 将查找 xlopen:// 并将字符串 xlopen://c:\null\test.xlsx/#Q50 传递给 XLOPEN.VBS，它会提取文件路径 c:\null\test.xlsx1 并打开它，然后选择 # 之后的范围。

如果在浏览器中/从 shell/通过 windows API 调用，这可以工作，不知道它是否可以在 3rd 方应用程序中工作。 （您可以将脚本替换为辅助 exe）

Answer 2

这必须是 Office 应用程序自动完成的路径：abc.xls#C12 作为一个整体是一个潜在的有效文件名本身 - 如果您尝试从 shell 运行它，您将收到“找不到路径”错误.

如果您在 onenote 中单击该链接并查看命令行，则会打开生成的 excel 实例，其中只有“-embedding”开关，这可能意味着 onenote 正在解析 abc.xls，通过其自动化功能启动 excel然后激活C12。

我认为，如果您想要该功能，则需要使用帮助应用程序执行相同的操作，并使用“C:\your_XL_loader.exe D:\abc.xls#C12”之类的路径。

（如果第 3 方应用程序支持 Windows 协议，那么让 your_XL_loader.exe 将其自身与 XXX://abc.xls#C12 之类的东西关联起来很简单）