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

eclw

用excel vba 读取这个网址上的一个数据
http://qt.gtimg.cn/q=sz159928
代码如下，首次执行可以正常，但再刷新 几次，就不动了，难道有反爬机制？
但直接在浏览器访问上述地址是没问题的呀， 大侠Help啊，代码如下：

谢谢先    是要让浏览器怎么伪装一下才行吗？？？

Private Sub CommandButton1_Click()
   URL = "http://qt.gtimg.cn/q=sz159928"
   With CreateObject("msxml2.xmlhttp")
     .Open "GET", URL, False
     .send
     sp = Split(.responsetext, "~", 5)   
     Cells(5, 2).Value = sp(4)                  
End Sub



http://qt.gtimg.cn/q=sz159928 其内容如下：
v_sz159928="51~消费ETF~159928~3.513~3.496~3.494~181300~99830~81471~3.512~3091~3.511~15~3.510~119~3.509~2016~3.508~50~3.513~621~3.514~69~3.515~1347~3.516~39~3.518~91~~20200610155903~0.017~0.49~3.520~3.490~3.513/181300/63610135~181300~6361~~~~3.520~3.490~0.86~~~0.00~3.846~3.146~0.85~3124~3.509~~~~~~6361.0135~0.0000~0~ ~ETF~16.32~~~~";

eclw

几次刷新 ，取得的数据 永远都是3.496, 这不是新的数据 ，新的其实是3.513

将这一句的False改为True后

.Open "GET", URL, False

执行，则会显示 ：

运行时错误'-21 47483638 (8000000a)’ :
完成该操作所需的数据还不可使用。

这是怎么了呢，直接用网址访问则没有任何问题。
http://qt.gtimg.cn/q=sz159928   数据 为3.513

eclw

Call DeleteUrlCacheEntry(Cells(2, lie).Value) 并没有用啊？？？？  


呜 呜 。



#If Win64 Then
    Private Declare PtrSafe Sub sleepp Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As LongLong)
    Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As LongLong
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
   
#Else
    Private Declare Sub sleepp Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As Long)
    Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
#End If

duquancai

裸爬                 

eclw

下面这二个办法都不行啊，

SEND 后面加一个随即变量
清除缓存，调用API清除缓存

eclw

应该要写入写入User Agent信息,但是在excel中怎么才能写入呢，

下面这一段 是python里的，不会改成excel的啊， 大虾救命啊，，谢谢先。

head['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'

feeyii

Cells(5, 2).Value = sp(3)

eclw

对，确实是sp(3)，  ^_^

但还是无法刷新 ，只显示上次抓取的数据  

kings12333

eclw 发表于 2020-6-10 22:37
对，确实是sp(3)，  ^_^

但还是无法刷新 ，只显示上次抓取的数据

清除一下缓存，就可以读到新的数据了

geraint868

http://qt.gtimg.cn/q=sz159928
我想知道这个怎么来的。