批量查询网站标题title页面描述meta description的方法-巧用excel

admin

使用的是excel的自建函数

打开excel 打开宏

输入一下内容

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

保存

在a1单元格输入网址url 注意要http://开头 在别的地方输入函数title例如

在输入任何title（A1）就可以提取网站的标题了 同理可以改变函数为

Function Meta(ByVal url As String) As String

On Error Resume Next

url = "http://" & Replace(url, "http://", "")
With CreateObject("Msxml2.XMLHTTP")

.Open "get", url, False

.send

Meta = Split(Split(.responsetext, "<meta name=""description"" content=""")(1), """")(0)

End With

End Function