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

Question

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

我必须创建一个摘要页面，其中包含带有超链接（书签）的所有详细信息的列表。单击链接后，必须带我到包含详细信息的工作表。

我试图创建这样的超链接。

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

但是没有成功。上面的代码虽然适用于网站链接。

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

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

Answer 1

我找到了答案。 ：）

如果将＃添加到地址（即＃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）是双引号。