웹 페이지 데이터 수정을 긁어

Question

그냥 내 엑셀 시트에 텍스트 형식으로 복사 붙여 넣기 웹 페이지를 수행하는 몇 가지 코드를 생각해 냈습니다.

약간의 수정이 필요했습니다. 추가 수정은 Excel에서 입력 (첨부 파일 - 입력 시트)에 액세스하여 URL을 변경하도록 코드를 통해 루프를 만들어야합니다 (마지막 단어 만 변경해야하는 URL에서 발견되며 Excel 파일에서 가져옵니다. 열 1 등등)을 찾습니다.

마찬가지로, 올바르게 루핑되었지만 모든 데이터를 하나의 셀로 덤핑하는 데이터 붙여 넣기를위한 루프가 없습니다.

이 매크로 내 염기성의 requirment 링크 셀 A1, A2, A3에 있다고 가정 칼럼 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

로 데이터를 A 열로부터 링크에 액세스하고 붙여이고

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

에 : 등을 웹 사이트에서 데이터를 셀 B1, B2, B3 등, 변화 그 옆에 표시하도록되어

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