抓取网页数据修改

Question

只是我想出了一些代码，它可以将网页复制粘贴为我的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

Answer 1

假设链接位于单元格 A1、A2、A3 等中，并且来自网站的数据应该出现在单元格 B1、B2、B3 等的旁边，请更改：

Sheets("Sheet1").Range("B1").Value = .document.body.innerText

自：

Sheets("Sheet1").Range("B" & URL.Row).Value = .document.body.innerText