vba - 无法打开工作表超链接 vba

Question

我正在尝试通过带有 vba 的超链接打开我的工作簿。按照链接到网页或文件夹没有麻烦，但我没有成功获得工作表。

有人可以告诉我为什么吗？

代码 ：

Sub MacroOpen() 

If ActiveCell.Hyperlinks.Count > 0 Then 

ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If 

End Sub

非常感谢 ！

Answer 1

这样做没有问题。

您的另一张工作表的网址一定有一点错误。语法是 SheetName!ColumNameAsAsciiRowNumber

因此，如果您的工作表名称是 sheet1 并且您想转到单元格 A:3 它的 sheet2!A3

这是完整的代码，它向工作表添加正确的超链接，然后导航到它

Option Explicit
Sub test()
    Sheets("Blad1").Hyperlinks.Add Sheets("Blad1").Cells(2, 3), "", Sheets("Blad2").Name & "!A3", "", "my link"
    Cells(2, 3).Select

    If ActiveCell.Hyperlinks.Count > 0 Then
       ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End If
End Sub

这是瑞典语的 excel，所以它的工作表名称是 blad1 和 blad2