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

该系列命令似乎导致运行时错误：1004我想知道导致此错误的原因是什么。Excel VBA：尝试添加超链接时出现错误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

来源

2017-10-14 Royce Quintana

不要都与.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

是一个典型的工作示例。

来源

2017-10-14 20:09:56

为了澄清，我的命令序列的问题是，我设置了var xCell的值，然后尝试使用添加超链接修改同一个单元格。通过仅设置一个变量“s”，并且只有调用add超链接才会停止正在导致的xCell的解除引用？你的解决方案工作我只是不知道我确切知道为什么。谢谢。 –

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

回答

相关问题