VBA抓取网页数据遇到到的问题请教。

ldflmh

首先，我就一普通小白，本来也不怎么接触excel，以前就没接触过VBA，现在弄这个了完全是因为今年无聊拿了点钱投资了点基金，基金买着买着感觉要关注数据太麻烦了，于是就想着自己弄个电子表格管理基金要方便些，总的来说就是自己喜欢折腾吧，以前对电脑还是挺喜欢折腾的，比如说自己修改封装系统，现在单位的同事的朋友的系统基本都是我在免费帮维护了。
通过一个多月的各种折腾，代码依葫芦画瓢，弄了个大概，如下图，差不多也可以够自己用用了。


其实上面的都是废话，现在还想继续抓取网页的部分数据，遇到问题了，所以来请教。
如图，像下面两个图的我就会抓取。代码如下：
sub a()
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://gu.qq.com/jj260108?pgv_ref=fi_quote_my_select?=" & Rnd(), False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Referer", ""
.send
Strtext = .responseText
End With
Sheet1.Range("A1") = "" & Split(Replace(Split(Strtext, "最新估值：")(1), "<", ">"), ">")(2)

end sub


而像下图的我就不会了：


用上面的代码抓取的是“-”，百度过一下这个数据是网页里js实现的？不懂，总之太外行，不懂，所以求助一下各位大神，这个数据通过vba抓取复杂不复杂呢？诚望各位有心帮助的帮助一下。

duquancai

复杂                  

ldflmh

duquancai 发表于 2019-9-7 12:57
复杂

太复杂就不弄了，也倒不是非弄不可，要是非弄不可出钱也要弄，哈哈。

ldflmh

看来是真复杂呢，没人关注，闪人。。。以后自己慢慢学习

情冇独钟

在源代码里去提数据多繁琐啊，大型的股票基金网站都会提供实时数据接口的
示例：http://fundgz.1234567.com.cn/js/260108.js?rt=1463558676006

Kaohsing

有要遍历多只股票，又要实时数据，有点小难。

Kaohsing

注册个帐户，加入自选股。一次返回多只股票的数据.

ldflmh

情冇独钟 发表于 2019-9-7 21:54
在源代码里去提数据多繁琐啊，大型的股票基金网站都会提供实时数据接口的
示例：http://fundgz.1234567.co ...

好，谢谢，虽然不太懂，不过我慢慢学习学习。

huang1314wei

像这种由JS函数生成的数据，如果有http不好抓，可以用VBA驱动IE浏览器来抓，当然更高级点就是用VBA驱动selenium来抓也行的，论坛有教程的

ldflmh

huang1314wei 发表于 2019-9-8 09:29
像这种由JS函数生成的数据，如果有http不好抓，可以用VBA驱动IE浏览器来抓，当然更高级点就是用VBA驱动sele ...

谢谢版主，我找找看，学习学习，因为真是没任何编程基础，所以一脸蒙，连如何入手都不知道。