Html 如何提取网站'；是否使用EXCEL VBA提供带有超链接的信息？

我现在有一个从C2到C90的EXCEL网站（超链接）小列表，我需要找到一些信息，如网站名称、邮政编码和电子邮件。它将通过脚本而不是手工来加快流程；）

事实上，我发现VBA可以一次打开每个超链接，但要找到信息还需要很长时间：

Sub OpenHyperLinks()
'Update 20141124
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each xHyperlink In WorkRng.Hyperlinks
        xHyperlink.Follow
    Next
End Sub

那么，是否有脚本可以打开所有超链接（$C2:$C90）并将HTML页面中的每个“h1”标记粘贴到EXCEL（$A2:$A90）

提前谢谢你

检查答案：它应该帮助你检查答案：它应该帮助你