抓取网页数据修改
抓取网页数据修改
提问于 2017-11-14 13:42:55
只是我已经想出了一些代码，在我的excel表格中复制粘贴网页为文本格式。
几乎不需要修改。另外，修改需要通过代码进行循环，以便它访问excel的输入(在附件-输入表中)，并对URL进行更改(我注意到URL中只需要更改最后一个单词，它将从excel文件的第1列中取出，依此类推，直到它发现为空)。
因为，它的循环是正确的，但在将所有循环的数据转储到一个单元格之前，没有用于粘贴数据的循环。
这个宏的基本要求是访问列A中的链接，并将其数据粘贴到列B中。
Sub Trial()
Dim IE As Object
Dim URL As Range
For Each URL In Range("A1:A3").Cells
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate "1ox11is" & URL
Do Until .readyState = 4: DoEvents: Loop
'Range("B1").Value = .document.body.innerText
'wsSheet.Range("B" & Rows).Value = .document.body.innerText
Sheets("Sheet1").Range("B1").Value = .document.body.innerText
.Quit
End With
Next
End Sub
回答 1
Stack Overflow用户
发布于 2017-11-14 14:47:30
假设链接位于单元格A1、A2、A3等中，而来自网站的数据应显示在单元格B1、B2、B3等中，请更改：
Sheets("Sheet1").Range("B1").Value = .document.body.innerText至：
Sheets("Sheet1").Range("B" & URL.Row).Value = .document.body.innerText页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/47278456
复制相关文章
相似问题
腾讯云开发者
