如何使用 VBScript 在 excel 内添加书签？

Question

我正在尝试通过 vbscript 减少一些手动工作。

我必须创建一个摘要页面，其中包含带有 hyperlinks（书签）的所有详细信息的列表。单击 link 后，它必须带我到包含详细信息的 sheet。

我试过像这样创建一个 hyperlink。

objExcel.ActiveSheet.Cells(1, 1) = "=HYPERLINK("Sheet2!A1", "Inventory")"

但没有成功。不过，上面的代码适用于网站 link。

 objExcel.ActiveSheet.Cells(1, 1) = "=HYPERLINK(""http://www.google.com"", ""Google"")"

我被困在这里了。请帮助我如何使用 VBSCRIPT 创建书签。

Answer 1

我找到了答案。 :)

如果我们将 # 添加到 Address，即 #Sheet2!A1.

，则以下代码可以正常工作

objExcel.ActiveSheet.Cells(1, 1) = "=HYPERLINK("#Sheet2!A1", "Inventory")"

我们应该确保在单元格中粘贴时双引号也可用。超链接值应如下所示

"=HYPERLINK("&Chr(34)&"#Sheet2!A1"&Chr(34)&","&Chr(34)&"Link"&Chr(34)&")"

其中 Chr(34) 是双引号。

How to add a Bookmark within excel using VBScript?