【Excel】获取网页标题的VBA

在宏录制，完成后可以直接在网格上调用Title(网址)。但好些会访问不了，原因不明。

 

Function Title(ByVal url As String) As String
On Error Resume Next
url = "http://" & Replace(url, "http://", "")
With CreateObject("Msxml2.XMLHTTP")
.Open "get", url, False
.send
Title = Split(Split(.responsetext, "<title>")(1), "</title>")(0)
End With
End Function