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

我有一个从C2到C90的EXCEL网站（超链接）的小列表，我需要find一些信息，如网站的名称，邮编和电子邮件。 它会通过脚本比手动加速过程;）

实际上，我发现VBA的这个代码可以一次打开所有的超链接，但是find这些信息还是相当长的：

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）！

先谢谢你 ！