求救：vba 抓取腾讯股票数据的问题

eclw

清除了缓存，还是不行，怀疑这正是excel的缺点，不能伪装成浏览器，所以被网站拒绝抓取

Kaohsing

复制粘贴吧。

Kaohsing

换winhttp试试

小fisher

eclw 发表于 2020-6-10 20:37
应该要写入写入User Agent信息,但是在excel中怎么才能写入呢，

下面这一段 是python里的，不会改成excel ...

VBA等效代码，加在open和send之间，实测可行
.setRequestHeader "User-Agent", "'Mozilla/5.0 (Linux; Android 4.1.1; Nexus 7 Build/JRO03D) AppleWebKit/535.19 (KHTML, like Gecko) Chrome/18.0.1025.166 Safari/535.19"

evg

With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://web.sqt.gtimg.cn/q=" & Range("l" & s) & "?r=0.5191242455637561", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Referer", ""
.send
strText = .responseText
End With

eclw

高！
谢谢大虾们啊，
我晚上试试，感谢大牛们！

920hy

eclw 发表于 2020-6-15 16:08
高！
谢谢大虾们啊，
我晚上试试，感谢大牛们！

留个记号

eclw

geraint868 发表于 2020-6-10 23:43
http://qt.gtimg.cn/q=sz159928
我想知道这个怎么来的。

在网上看到的，有的前辈写的。