vba抓取网页数据(【*敏*感*词*】如何成为一个有意思的人？（上）)

　　vba抓取网页数据(【*敏*感*词*】如何成为一个有意思的人？（上）)

　　.打开“GET”，SURL，假

　　。发送

　　'tt = .responseBody

　　tt = .responseText

　　'tt = StrConv(.responsebody, vbUnicode)

　　结束于

　　如果 InStr(tt, "Sheet1.Cells(i, 13) = Split(Split(Split(tt, "")(0), ">")(1)@ >

　　别的

　　Sheet1.Cells(i, 13) = "-"

　　万一

　　If InStr(tt, "") Then'Grab the title

　　Sheet1.Cells(i, 14) = Trim(Replace(Split(Split(tt, "")(1)@>, "")(0), vbLf, " "))

　　别的

　　Sheet1.Cells(i, 14) = "-"

　　万一

　　If InStr(tt, "") Then'Fetch 评论

　　Sheet1.Cells(i, 15) = Split(Split(Split(tt, "")(1)@>, "")(0), "")(< @0)

　　别的

　　Sheet1.Cells(i, 15) = 0

　　万一

　　如果 InStr(tt, "Sheet1.Cells(i, 16) = Split(Split(Split(Split(tt, "")(0), "title="")) (1)@>, "")(0)

　　别的

　　Sheet1.Cells(i, 16) = 0

　　万一

　　如果 InStr(tt, "Sheet1.Cells(i, 17) = Split(Trim(Replace(Split(Split(Split(tt, "")(0), "") (1)@>, vbLf, "")), "")(0)

　　别的

　　Sheet1.Cells(i, 17) = 0

　　万一

　　如果 InStr(tt, "Sheet1.Cells(i, 18) = Split(Split(Split(tt, "")(0), ">")(1)@ >

　　别的

　　Sheet1.Cells(i, 18) = 0

　　万一

　　If InStr(tt, "") Then'Grab 类别

　　Sheet1.Cells(i, 19) = Replace(Split(Split(Split(Split(tt, "")(1)@>, "")(0), "在 ")(1)@>, "(")(0), "&", "&")

　　别的

　　Sheet1.Cells(i, 19) = "-"

　　万一

　　If InStr(tt, "") Then'Grab BSR1

　　Sheet1.Cells(i, 20) = Split(Split(Split(tt, "")(1)@>, "in ")(0), "#") (1)@>

　　别的

　　Sheet1.Cells(i, 20) = 0

　　万一

　　If InStr(tt, "") Then'抓住节点

　　Sheet1.Cells(i, 21)@> = Split(Split(Split(Split(Split(tt, "")(1)@>, "")(0), " ")(1)@>, "")(1)@>

　　别的

　　Sheet1.Cells(i, 21)@> = "-"

　　万一

　　If InStr(tt, "") Then'Grab BSR2

　　Sheet1.Cells(i, 22) = Split(Split(Split(Split(Split(tt, "")(1)@>, "")(0), " ")(1)@>, "")(0), "#")(1)@>

　　别的

　　Sheet1.Cells(i, 22) = 0

　　万一

　　接下来我

　　结束子

　　复制代码

　　本来可以正常抓取商品信息（标题、品牌、评论、星级...），但是最近抓取出错了。代码操作错误，（我们正常浏览商品页面也会出现这种现象，但只需要修改网站的语言设置，防止出现中文内容），请教：

　　能否在代码中指定一个浏览器，比如谷歌浏览器来获取数据（我在想代码是打开360还是IE网页，两者可能都有中文界面）

　　或者是其他问题引起的？

　　另外，我想在这段代码中加入setRequestHeader，避免网站的反爬系统，也希望得到老师的帮助

　　非常感谢老师的帮助

　　呸呸