VBA抓取网页数据时，图片格式的处理

某均

在论坛中有较多的关于使用post实现网页数据的抓取技术了。
但在所有的语言中均去除了HTML特有的一些语言结构。导致部分使用固定几个图片的示意的数据无法获取。



ccwan大大此前的语言代码

Sub cc()    Cells.ClearContents    Set oDoc = CreateObject("htmlfile")    With CreateObject("WinHttp.WinHttpRequest.5.1")        .Open "GET", "http://www.cde.org.cn/transparent.do?method=spxlList&tasktype=xb&nowYearM=2014-02&acceptid=&applyTypeCde=IND&isTimetag=0&currentPageNumber=1&pageMaxNumber=340&totalPageCount=17&pageroffset=20&pageMaxNum=20&pagenum=1", False        .send        .WaitForResponse        oDoc.body.innerHTML = .responsetext        Set r = oDoc.All.Tags("table")(7).Rows        For i = 0 To r.Length - 1            For j = 0 To r(i).Cells.Length - 1                Cells(i + 1, j + 1) = r(i).Cells(j).innerText            Next j        Next i        Set r = Nothing    End WithEnd Sub

能将表格里的文字内容有效复制，但是灯泡处均指向链接<img src="/styles/images/lamp_shut.gif">则过滤掉了。

请教各位大大，如果面对这样的一种情况，如何编写合适的语言才能将<img src="/styles/images/lamp_shut.gif">这样的数据保留，以进行后期的判断？

jsxjd

可以解析图片名称得到状态

suwenkai

楼主难道是同一个人？发差不多的帖子？
[求助] 如何转换网页图片数据，获取到EXCEL表中呢？

1. http://club.excelhome.net/forum.php?mod=viewthread&tid=1149625&page=1#pid7834496

复制代码

jsxjd

把下面的网址什么意思？
http://www.lbedu.com/czbm/print.asp

某均

suwenkai 发表于 2014-9-3 18:47
楼主难道是同一个人？发差不多的帖子？
[求助] 如何转换网页图片数据，获取到EXCEL表中呢？

不是……大概是勾起了别人同样的需求吧……

苏sir

Set r = oDoc.all.tags("table")(7).Rows
这句代码什么意思呢