Td innerText元素VBA

时间:2014-01-16 16:57:49

标签: excel vba web-scraping

我有这段代码:

<tbody id="frm:r:0:s:tbody_element">
<tr>
    <td>
    <img id="frm:r:0:s:0:img_2" src="/example/img/ic_small_min.gif" 
       onclick="Expand(getID(this.id,'f'))" style="cursor: pointer;" /> 
    - My Items
    <span id="frm:r:0:s:0:f" style="DISPLAY: none;">
          <input type="checkbox" name="frm:r:0:s:0:bcb" id="frm:r:0:s:0:bcb"  
           value="true" onclick="checkAll(this.form, this)" />
           <table id="frm:r:0:s:0:mcb">     
          <tr><td><label><input type="checkbox" name="frm:r:0:s:0:mcb" 
                    value="H321" />&#160;List</label></td>
           </tr>        
          <tr><td>
        <label><input type="checkbox" name="frm:r:0:s:0:mcb"
               value="H318" />&#160;Edit</label></td>
           </tr>        
          <tr><td><label><input type="checkbox" name="frm:r:0:s:0:mcb"
                     value="H310" />&#160;Delete</label>
           </td></tr>

但我尝试 getElementsbyid(“frm:r:0:s:tbody_element”)。innerText 我得到:

我的商品列表编辑删除

而不仅仅是

我的商品

为什么?

我想做的只是获取:我的物品

我不想获取元素中的所有文本。

1 个答案:

答案 0 :(得分:2)

'if doc = the loaded document
Set tb = doc.getElementById("frm:r:0:s:tbody_element")
Set els = tb.getElementsByTagName("td")(0).ChildNodes
Debug.Print els(1).NodeValue ' "- My Items"