求各位老师修改这个网抓爬取基金数据的VBA

江城百里浪

这个VBA也是在论坛老师这里看到的，但是原贴老师一直没有回复我，现在小白 想请教 下各位老师：

1.想在最后一列新增爬取“今年来”的数据，这个新增代码如何编写？
2.之前老师做这个的时候 ，前面“单位净值，累计净值，估算净值”这一块爬取的数值不对，这块代码如何修改？

附件已上传，请各位老师帮忙修改一下。感谢！

perfect131

可以搞                           

江城百里浪

有会写的老师帮帮小白吗？

祝各位老师端午安康~~帮帮孩子吧~

江城百里浪

perfect131 发表于 2023-6-22 09:08
可以搞

请问老师怎么修改？

512008404

这段代码可以搞定【今年来】字段
Property Get 今年来() As String
    Dim arrStr
    If isConnect = False Or isEff = False Then Exit Property
    今年来 = 获取字段("阶段涨幅</div>", "同类平均<div class=")
    今年来 = Replace(今年来, "green", "red")
    arrStr = Split(今年来, "<div class=""Rdata ui-color-red bold"">")
    今年来 = Split(arrStr(5), "<")(0)
End Property

512008404

单位净值原代码修改了一下，取到的还是前一天的值。这是个网抓代码，分析网页比较费劲！

江城百里浪

512008404 发表于 2023-6-22 17:22
单位净值原代码修改了一下，取到的还是前一天的值。这是个网抓代码，分析网页比较费劲！

请问下老师，我点了刷新以后，会弹出这个错误，请问是什么原因呢？

512008404

江城百里浪 发表于 2023-6-23 09:04
请问下老师，我点了刷新以后，会弹出这个错误，请问是什么原因呢？

这支基金的【今年来】字段没有值，前面没有考虑这种情况。

512008404

对原代码进行了简单修改，供您参考！

江城百里浪

512008404 发表于 2023-6-23 16:26
对原代码进行了简单修改，供您参考！

谢谢老师指点，还有就是原来代码中会把没有“净值估算”这一项的基金给当做 无效基金 给清除掉（如图所示），请问这个有办法修改吗？