vba를 사용하여 웹 사이트에서 데이터 스크랩 4

Question

VBA 웹 스크랩을 사용하여 Met Office 웹 사이트에서 런던의 야간 최저 기온을 낮추려고합니다. 난 코드 here 게시로 사용하려고했습니다. 코드가 실행되는 동안 복사가 필요한 것은 복사되지 않습니다. 도움을 많이 주시면 감사하겠습니다.

Sub WebScrape_1() 

'Create an Internet Explorer browser 
Dim appIE As Object 
Set appIE = CreateObject("internetexplorer.application") 

'Browse the browser to the target webpage 
With appIE 
    .Navigate "https://www.metoffice.gov.uk/public/weather/forecast/gcpvj0v07" 
    .Visible = True ' False activate when happly with code 
End With 

'Wait while loading 
Do While appIE.Busy 
    DoEvents 
Loop 

'What aspect of the webpage to copy 
Set allRowOfData = appIE.document.getElementById("nightValue0") 

Dim myValue As String: myValue = allRowOfData.innerHTML 

'Close the browser 
appIE.Quit 
Set appIE = Nothing 

'Paste the data into the selected range 
ActiveWorkbook.Sheets("Data_Temp").Range("C7").Value = myValue 

End Sub 

Answer 1

쉬운 질문입니다. 죄송합니다.이 커뮤니티에는 무례한 회원이 있습니다.

"FirstChild"와 "innertext"를 코드에 추가하기 만하면됩니다. 내가 당신이라면, 코드를 "로드하는 동안 기다리는 중"부분에서 다르게 작성합니다. 그것을하는 효과적인 방법이 아닙니다. 어쨌든, 아래에 작업 코드를 찾을 수 :

Sub WebScrape_1() 

'Create an Internet Explorer browser 
Dim appIE As Object 
Set appIE = CreateObject("internetexplorer.application") 

'Browse the browser to the target webpage 
With appIE 
    .Navigate "https://www.metoffice.gov.uk/public/weather/forecast/gcpvj0v07" 
    .Visible = True ' False activate when happly with code 
End With 

'Wait while loading 
Do While appIE.Busy 
    DoEvents 
Loop 

'What aspect of the webpage to copy 
Set allrowofdata = appIE.document.getElementById("nightValue0").FirstChild 
allrowofdata = allrowofdata.innertext 

'Close the browser 
appIE.Quit 
Set appIE = Nothing 

'Paste the data into the selected range 
ActiveWorkbook.Sheets("Sheet1").Range("C7").Value = myValue 

End Sub