如何使用EXCEL VBA通​​过超链接提取网站信息？

Question

我现在有一小部分网站（超链接）在EXCEL从C2到C90，我需要找到一些信息，如网站的名称，邮政编码和电子邮件。它会通过脚本而不是手动加速进程;）

实际上，我发现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）并粘贴每个＆＃34; h1＆＃34;从HTML页面标记到EXCEL（$ A2：$ A90）！

提前谢谢！