Excel VBA：尝试添加超链接时出现错误 1004答案

【问题标题】：Excel VBA: Error 1004 When Trying To Add HyperlinkExcel VBA：尝试添加超链接时出现错误 1004
【发布时间】：2021-01-13 02:23:42
【问题描述】：

这一系列命令似乎导致Runtime Error: 1004 我想知道这个错误的原因是什么。

如果我没有 Activesheet.Hyperlinks.add 行，则单元格值设置正确，只是缺少超链接...这会让我觉得我丢失了 xCell 引用，但我之前已经放置了调试语句hyperlink.add 似乎可以访问。

示例网址：http://www.walmart.com/ip/Transformers-Robots-in-Disguise-3-Step-Changers-Optimus-Prime-Figure/185220368

    For Each xCell In Selection
    Url = xCell.Value
    If Url = "" Then
       'Do Nothing
    ElseIf IsEmpty(xCell) = True Then
       'Do Nothing
    ElseIf IsEmpty(Url) = False Then
        splitArr = Split(Url, "/")
        sku = splitArr(UBound(splitArr))
        xCell.Value = "https://www.brickseek.com/walmart-inventory-checker?sku=" & sku
        'Error happens on next command
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    End If
Next xCell

【问题讨论】：

标签： vba excel hyperlink

【解决方案1】：

不要同时使用 .Value
不要使用 .Formula：

Sub demo()
    Dim s As String, xCell As Range

    s = "http://www.walmart.com"
    Set xCell = Range("B9")
    ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=s, TextToDisplay:=s
End Sub

是一个典型的工作示例。

【讨论】：

澄清一下，我的命令序列的问题是我设置了 var xCell 的值，然后尝试使用添加超链接到同一个单元格进行修改。通过仅设置变量“s”，并且仅调用添加超链接，这会停止引起的 xCell 的取消引用？您的解决方案有效，我只是不确定我确切知道原因。谢谢。

【解决方案2】：

总有另一种可能性，您的工作表可能被锁定，您必须在锁定工作表时授予这样做的权限。

我知道这不是这里描述的问题的解决方案，但是 Microsoft VBA 提供的非确定性错误消息是相同的。我来这里是为了解决我的问题，其他人可能会碰到这个问题并发现我的评论相关。

【讨论】：