标题：批量查询百度关键词搜索结果数的excel方法 输入公式

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

时间：2011/12/8 12:48:43

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

内容：

打开vba编辑器 创建一个 模块

输入复制下面的代码

保存 关闭

就可以利用公式=baiducompetition 查询了

Function baiducompetition(ByVal url As String) As String

On Error Resume Next

With CreateObject("Msxml2.XMLHTTP")

url = "http://www.baidu.com/s?word=" & url
.Open "get", url, False

.send

baiducompetition = Split(Split(.responsetext, "找到相关结果")(1), "个<")(0)

baiducompetition = Replace(baiducompetition, "约", "")

End With

End Function

打开vba编辑器 创建一个 模块

输入复制下面的代码

保存 关闭

就可以利用公式=baiducompetition 查询了

Function baiducompetition(ByVal url As String) As String

On Error Resume Next

With CreateObject("Msxml2.XMLHTTP")

url = "http://www.baidu.com/s?word=" & url
.Open "get", url, False

.send

baiducompetition = Split(Split(.responsetext, "找到相关结果")(1), "个<")(0)

baiducompetition = Replace(baiducompetition, "约", "")

End With

End Function