怎样抓取网页中加号伸缩的内容

guanlearn · 发表于 2018-6-12 14:09

请教哪位大神指导，怎样用vba抓取网页中点击加号展开内容中的一部分？
网页中第4大部分为“漏洞信息”，现在希望抓取4.1漏洞分布下面的内容，有加号需要展开，提取加号对应的“漏洞名称”、加号展开后的“受影响主机”、“详细描述”、“解决办法”，生成5列的表格：序号、漏洞名称、受影响主机、详细描述、解决办法。详细的原始网页、希望的效果见附件

YZC51 · 发表于 2018-6-12 16:37

应该是第15个<tbody>里的内容
<tbody>

<tr class="odd vuln_high" style="cursor:pointer;" onclick="no_toggle('4_1_1','table_4_1_1')">
      <td>1</td>
      <td>
      <img id="4_1_1" class="ico plus" src="reportfiles/images/blank.gif">
      <img align='absmiddle' src='reportfiles/images/vuln_high.gif' ></img>
      <span style='color:#E42B00'>Oracle Fusion Middleware Oracle Web Services组件远程安全漏洞(CVE-2016-3551)</span>
      
      </td>
      <td>4/1773</td>
      <td>0%</td>
      <td>4</td>

guanlearn · 发表于 2018-6-12 19:36

老师：感谢回复！但是，您这个怎样生成xls文件呢？

YZC51 · 发表于 2018-6-12 20:08

guanlearn 发表于 2018-6-12 19:36
老师：感谢回复！但是，您这个怎样生成xls文件呢？

这样试试！
Sub yzc51()
Dim URL, stext
URL = "网址"
With CreateObject("MSXML2.XMLHTTP")
      .Open "GET", URL, False
      .send
      stext = "<tbody>" & Split(Split(.responseText, "<tbody>")(15), "</tbody>")(0)
End With
stext = "<table>" & stext & "</table>"
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
      .SetText stext
      .PutInClipboard
End With
Range("a1").Select
ActiveSheet.Paste
End Sub

YZC51 · 发表于 2018-6-12 20:38

修改代码
Sub yzc51()
Dim URL, stext
URL = "R:\index.html"
With CreateObject("MSXML2.XMLHTTP")
      .Open "GET", URL, False
      .send
      stext = Split(Split(.responseText, "目录</div>")(1), "<li>建议")(0)
End With
Debug.Print stext
stext = "<table>" & stext & "</table>"
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
      .SetText stext
      .PutInClipboard
End With
Range("a1").Select
ActiveSheet.Paste
End Sub

YZC51 · 发表于 2018-6-12 20:49

附件已经上传，格式请自己整理！

scbc.rar (586.32 KB, 下载次数: 8)

guanlearn · 发表于 2018-6-13 21:46

Excellent! Great! 写下来才发觉Excel可能是从Excellent来的？！！
感谢，感谢，非常感谢！！大神风范！！！
对您的敬仰如滔滔江水般无尽，如高山仰止！

zerry · 发表于 2018-6-13 21:53

excel这么强大？连网页都能抓？

guanlearn · 发表于 2018-6-19 21:49

YZC51 发表于 2018-6-12 20:49
附件已经上传，格式请自己整理！

51先生：能在抓取后，能把stext中的img标签删除吗？这样是否会快一点？
谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 怎样抓取网页中加号伸缩的内容

评分