关于vba网抓数据的问题，希望各大神指点

thomsonzk

本人VBA大白，想利用网抓数据来提高工作效率，望各位老师指点，万分感谢!

我想抓取东方财富中上证指数页面内的“涨家数”数据放置在excel内的单元格内，具体代码如下：
'Option Explicit
Public Sub 上证指数()


Dim url As String
url = "http://quote.eastmoney.com/zs000001.html"

    Dim  指数  As Object
    Set 指数 = CreateObject("MSXML2.XMLHTTP")

    With 指数

     .Open "GET", url, False
     .send

     Do While .readyState <> 4
         DoEvents
      Loop
      
    Dim sp() As String

    sp = Split(.responseText, "涨家数")
    Range("a1") = sp(1)

End With

End Sub
但运转宏之后，只能获取网页源代码，不能获取网页上所显示的数字数据！

这问题已经困扰我好几天了，由于vba编程基础实在太差，因此望线上老师能帮我一把！

约定的童话

还是楼主厉害，基础差都敢直接网抓！

thomsonzk

呵呵，没办法呀！总希望学到更多的好的经验，如果您能指点一二就好了！

qcw911

用ie大法你试试

thomsonzk

qcw911 发表于 2020-1-8 14:59
用ie大法你试试

我因为刚学vba,只有个很初步的概念，表格内的代码勉强还可以，但是网页上的一些代码我可以说是完全不懂，如果不麻烦的话，您能否写段代码让我参考学习下呢！

flhy99

网址不对，按照你这网址抓出来的源码没有你要的数据 的，最简单的  在网页 右键  查看源代码，你就知道了
，你需要用网页抓包工具抓出你需要的数据的那个网址，比如这个：http://push2.eastmoney.com/api/q ... ltt=2&fields=f2,f3,f4,f6,f104,f105,f106&np=1&cb=qqgsData=&secids=1.000001,0.399001
我也是菜鸟，只能帮你到这了

flhy99

url = "http://push2.eastmoney.com/api/qt/ulist.np/get?fid=f3&pi=0&pz=20&po=1&ut=bd1d9ddb04089700cf9c27f6f7426281&fltt=2&fields=f1,f2,f3,f5,f4,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f104,f105,f106&np=1&cb=qqgsData=&secids=1.000001,0.399001"
这个网址里面去找吧，你的网址不对，先学会抓包，我也是菜鸟，不太会，只能给你思路

thomsonzk

flhy99 发表于 2020-1-11 22:07
网址不对，按照你这网址抓出来的源码没有你要的数据 的，最简单的  在网页 右键  查看源代码，你就知道了
...

十分感谢学兄的指点！目前已经有了初步的认识，继续深入了解

thomsonzk

flhy99 发表于 2020-1-11 23:01
url = "http://push2.eastmoney.com/api/qt/ulist.np/get?fid=f3&pi=0&pz=20&po=1&ut=bd1d9ddb04089700cf9c ...

学兄，我想问下你这个网址是怎么抓出来的，我刚下载了fiddle，但在我输入了上证指数的网址后源码还是和浏览器中看到的一样，但你的网址源码中确实看到了我要的数据，一定请再次指教一下，万分感谢！

flhy99

httpwatch  中文版，基本会报毒的，
或者 用  精易编程助手网页抓包
我基本上用的就是这2个 工具