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 它的表2！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

麻烦打开表超链接vba

1 个答案: