首页 > 网络资讯 > 技术支持 >
用EXCEL批量获取网页标题的方法
分享至:0
2017-05-10 12:42:21     来源:互联网     点击:
导读: 打开excel找到开发者工具,点击"Visual Basic"在下图所示位置右键点击添加模块填入如下代码:Function Title(ByVal url As String) A...
打开excel找到开发者工具,点击"Visual Basic"

技术分享

在下图所示位置右键点击添加模块

技术分享

填入如下代码:

 

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

然后回到excel,把要获取的标题网页URL填进去,在标题输出行填入"=title(A1)",剩下的直接往下拖就行了。比如获取这些网页的标题:

http://www.xxxxxx.com/archives/483

http://www.xxxxxx.com/archives/482

http://www.xxxxxx.com/archives/481

http://www.xxxxxx.com/archives/480

http://www.xxxxxx.com/archives/479

最后的结果是这样的:

技术分享

 

非常实用。只是在获取标题期间excel会出现卡顿的情况,这时候千万不要去碰它,容易卡死。