vba - 以编程方式将 href 超链接添加到 Excel 范围

Question

这肯定是一个常见问题，答案很简单，但我似乎无法找到解决方案。我使用 Excel 宏检查网站主页上的链接，并将这些链接放入 Excel 中的某个范围中。

现在我想将这些值制作成超链接。

Set allLinks = objIE.document.GetElementsByTagName("A")
For Each link In allLinks
    If InStr(link.href, inspectOneCat) Then
        inspectLink(linkCount) = link
        linkCount = linkCount + 1
    End If
Next

在下一步中，一维数组将转换为二维数组，其中包含inspectLink(i,0) 中的描述性列和inspectLink(i,1) 中的链接值。然后将数组加载到一个范围中，如下所示:

        Sheets("Awesomepova").Range("a2:b300").Value = inspectLink

这有效。但这些链接显示为值，而不是超链接。我想做这样的事情:

    'Sheets("Awesomepova").Hyperlinks.Add Sheets("Awesomepova").Range("a2:b300"), Sheets("Awesomepova").Range("a2:b300").Value

这行不通。但是我手动进入工作表并更改了第一个单元格，因此它是超链接的，我注意到即使我以编程方式重新加载整个范围，超链接仍然存在，所以我认为这是单元格格式的特征，而不是实际的单元格中的数据。

也许可以通过对规则是使用单元格值作为超链接值的列中的所有单元格应用相同的格式来解决该问题。

Answer 1

这相当于使用 For i... 循环

Public Sub TestMe()
    Dim myArr As Variant
    Dim i As Long

    myArr = Array("www.bbc.com", "www.stackoverflow.com")

    For i = 0 To UBound(myArr)
        Worksheets(1).Cells(i + 1, 1).Hyperlinks.Add Worksheets(1).Cells(i + 1, 1), myArr(i)
    Next i
End Sub