Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3649|回复: 0

用vba读网址时更新不同步??

[复制链接]
发表于 2021-1-6 11:52 | 显示全部楼层 |阅读模式
本帖最后由 daniel32 于 2021-1-6 11:58 编辑

http://fundgz.1234567.com.cn/js/000011.js这个网址用vba读取时总不跟网页打开实时数据,.Range("AE" & i)只有在数据不更新的情况下才是一致的。我猜是vba只读取缓存,没有读取最新数据,但不知怎么修改。


Sub kao()
Dim tt As String

Application.ScreenUpdating = False
    rowCount = Sheet11.Range("T65535").End(xlUp).row '获取行数
   
    With Sheet11
    For i = 2 To rowCount  '从第二行开始
    URL = "http://fundgz.1234567.com.cn/js/"
    URL = URL & .Range("T" & i).Text & ".js"
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", URL, False
        .Send
        tt = .responsetext
    End With


If Len(tt) > 30 Then

tt = Split(Split(tt, "jsonpgz({""")(1), """});")(0)

arr = Split(tt, """,""")
'-----------------------------------
'jsonpgz({"fundcode":"000011","name":"华夏大盘精选混合","jzrq":"2020-05-12","dwjz":"13.8620","gsz":"13.9427","gszzl":"0.58","gztime":"2020-05-13 15:00"});

.Range("AE" & i) = Split(arr(4), ":""")(1)

  
End If
   

Next
End With
End Sub


excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 21:30 , Processed in 0.294529 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表