ウェブページのデータ変更を掻き立てる

Question

それだけで、私のExcelシートにテキスト形式にコピー貼り付けウェブページをコピーするいくつかのコードがあります。

少々の変更が必要でした。 追加の変更では、Excelからの入力にアクセスして（添付ファイル入力シートの）入力にアクセスし、URLに変更を加えるようにコードをループする必要があります（最後の単語のみをExcelのファイル列1など、その空白が見つかるまで）。

同様に、ループは正しく行われますが、データを貼り付けるためのループはなく、すべてのループデータを1つのセルにダンプします。

このマクロの私の基本のrequirmentは、リンクがセルA1、A2、A3であると仮定すると、列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

にそのデータを貼り付けることです

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

へ：：などやウェブサイトからのデータは、セルB1、B2、B3など、変化にそれらの隣に表示されるようになっている

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