Fatal编程技术网
  • html/
  • 使用VBA将特定子节点从HTML表提取到excel

使用VBA将特定子节点从HTML表提取到excel

html vba excel dom

使用VBA将特定子节点从HTML表提取到excel,html,vba,excel,dom,Html,Vba,Excel,Dom,我正在尝试提取FDA节点中的第5个孩子，然后单击IMG。到目前为止，我的解决方案只提取了第二个元素。任何帮助都将不胜感激 <TD>Proxy to Inter</TD> <TD>15/03/2017 7:19:18 AM</TD> <TD>15/03/2017 7:19:18 AM</TD> <TD>2</TD> <TD>10</TD> <TD>false&

我正在尝试提取FDA节点中的第5个孩子，然后单击IMG。到目前为止，我的解决方案只提取了第二个元素。任何帮助都将不胜感激

    <TD>Proxy to Inter</TD>
<TD>15/03/2017 7:19:18 AM</TD>
<TD>15/03/2017 7:19:18 AM</TD>
<TD>2</TD>
<TD>10</TD>
<TD>false</TD>
<TD></TD></TR>
<TR class=white><TD>FDA</TD>
<TD>Data</TD>
<TD>24/07/2017 1:21:59 PM</TD>
<TD>25/07/2017 9:42:43 AM</TD>
<TD>2</TD>
<TD>10</TD>
<TD>false</TD>
<TD><IMG onclick="Trail( style="CURSOR: hand" alt="" src="/images/task.gif"></TD></TR>
您提供的HTML代码存在语法和逻辑问题（即，它以一个缺少的
开始。该网站位于我的组织的内部网上，因此无法公开访问。很抱歉，我无法发布整个代码，因为我的组织禁止我这样做。我想将该子元素的数据放在excel中，然后单击FDA行内的图像。如果没有示例页面，将很难测试任何内容。）这么说来，我发现有两件事可以给你一个很好的起点：1..2.你提供的HTML代码有语法和逻辑问题（即，它以一个缺少的
开始。该网站位于我的组织的内部网上，因此无法公开访问。很抱歉，我无法发布整个代码，因为我的组织禁止我这样做。我想将该子元素的数据放在excel中，然后单击FDA行内的图像。如果没有示例页面，将很难测试任何内容。）代码。说到这里，我发现了一些东西可以给你一个很好的起点：1..2。

sText = ""

Found = False
Set inputCollection = HTMLDoc.getElementsByTagName("td")

  For Each inputElement In inputCollection

      If Found = True Then

          sText = inputElement.innerText
          Worksheets("Sheet1").Cells(sht1rw, 4) = sText
          Found = False
          Exit For

      End If
      If inputElement.innerText = "FDA" Then
          Found = True
      End If
    Next inputElement