如下图我要取得当前元素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