vba取得当前元素的值

最新推荐文章于 2024-02-01 19:52:21 发布

qq_24499417

最新推荐文章于 2024-02-01 19:52:21 发布

阅读量1.3k

点赞数

分类专栏： vba 文章标签： vba 元素值提取 jQuery

本文链接：https://blog.csdn.net/qq_24499417/article/details/81487694

版权

本文介绍了如何使用VBA结合jQuery从不标准网页中提取特定元素的值。当元素值不直接包含在元素内时，作者尝试了多种方法，包括使用`$('a').text()`、删除后代元素以获取当前值以及遍历节点寻找nodetype为3（文本节点）的方法。最终，作者展示了成功获取元素值的VBA代码，同时对jQuery的未来表达了期待。

摘要由CSDN通过智能技术生成

如下图我要取得当前元素a的值67896.由于这个网页不是很标准..值没有包含在元素里,无法直接取到。当然要是用正则或者split这种肯定是能解决的。我这里只是学习下jquery的解法。

StrText="<a><span>123</span>67896<span>876</span></a>"

1.我先是用了$('a').text().因为加载的是网络的jquery,第一次运行代码可能会报错,因为要下载js文件,第二次以后直接用缓存了，不会报错。当然你可以把jquery文件放到vba代码所在工作簿的文件夹,然后本地引用也可以。如：Odom.write "<script src='" & ThisWorkbook.Path & "\jquery-1.4.min.js'></script><body></body>",这样就可以了。代码如下，然而并未得到预期的结果：

Sub Test1()
    Dim Odom As Object, oWindow As Object, StrText As String
    Set Odom = CreateObject("htmlfile")
    Set oWindow = Odom.parentWindow
    StrText = "<a><span>123</span>67896<span>876</span></a>"
    Odom.write "<script src='http://ajax.microsoft.com/ajax/jquery/jquery-1.4.min.js'></scrip

最低0.47元/天解锁文章

qq_24499417

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
vba取得当前元素的值

如下图我要取得当前元素a的值67896.由于这个网页不是很标准..值没有包含在元素里,无法直接取到。当然要是用正则或者split这种肯定是能解决的。我这里只是学习下jquery的解法。StrText="&lt;a&gt;&lt;span&gt;123&lt;/span&gt;67896&lt;span&gt;876&lt;/span&gt;&lt;/a&gt;"1.我先是用了$('
复制链接

扫一扫

专栏目录