VBA在标签之间捕获文本

Question

我正在尝试使用excel中的VBA从网站中提取数据。 页面源具有以下（下面），我可以提取“这是我的文本”文本，它位于“A”标签之间，我可以提取“DIV”标签之间的所有内容，显示为“This是我的文字（XXXXX）“.....但我无法提取刚出现在”/A"...eg“（XXXXX）之后的文本块”

 <div style="padding: 1px;"><a href="#" onclick="if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('MainPage'),{'j_id32'},'');}return false">This is my text</a> (XXXXX)</div>

<div style="padding: 1px; padding-left:20px;"><a href="#" onclick="if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('MainPage'),{'j_id32'},'');}return false">This is my text</a> (XXXXXXXX)</DIV>

任何想法??

Answer 1

如果您知道所需的字符串是DIV元素中最后一个标记关闭后的字符串，请使用

TXT = Right(OBJ.innerHTML, Len(OBJ.innerHTML) - InStrRev(OBJ.innerHTML, ">"))

其中OBJ是你的DIV元素