VBA Excel表格范围和超链接

Question

在另一列中添加了一些超链接后，我的sub末尾的这一行执行崩溃(Method 'Range' of object'_Global' failed(。

Range("TABLE_XXX[[#All],[COLUMN1]]")

当我进入调试并按 F8 时，它可以工作。 如果我删除放置超链接的代码，它就像一个魅力。

这是添加超链接的代码

With mySheet
.Hyperlinks.Add Anchor:=.Cells(depRow, urlCol), _
Address:="https://www.google.com/", _
ScreenTip:="Google", _
TextToDisplay:="https://www.google.com/"
End With

知道会发生什么吗？

编辑：我刚刚写了一个完美重现错误的示例。

Sub Macro3()
Dim objTable As ListObject
Dim rng As Range
ActiveSheet.Cells.Clear
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B2"), , xlYes)
objTable.Name = "TABLE_XXX"
objTable.ListColumns(1).Name = "col1"
objTable.ListColumns(2).Name = "col2"
Set rng = Range("TABLE_XXX[[#All],[col1]]")
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(2, 2), _
Address:="https://www.google.com/", _
ScreenTip:="Google", _
TextToDisplay:="https://www.google.com/"
End With
Set rng = Range("TABLE_XXX[[#All],[col2]]")
End Sub

第一个Set rng有效，但第二个不起作用(调试除外(。

Answer 1

替换

Set rng = Range("TABLE_XXX[[#All],[col2]]")

跟

Set rng = ActiveSheet.ListObjects("TABLE_XXX").ListColumns("col2").Range