Question

一系列命令似乎导致运行时错误：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

Answer 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

是一个典型的工作示例。

Answer 2

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

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

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

2 个答案: