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

-------------------------------------------------------------------------------------------------------------------------------

时间：2011/10/31 15:07:50

-------------------------------------------------------------------------------------------------------------------------------

内容：

使用的是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

使用的是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