vbaを使用してウェブサイトからデータをスクラビングする4

Question

私は、Metaオフィスのウェブサイトからロンドンの夜間の最低気温をVBAのウェブスクレーパーで取得しようとしています。私は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

簡単な質問Karm。申し訳ありませんが、このコミュニティには失礼なメンバーがいます。

"FirstChild"と "innertext"をコードに追加するだけです。もし私があなただったら、特に「読み込み中の待機」の部分にコードを違った方法で書きます。それは効率的な方法ではありません。とにかく、以下の作業コードを見つける：何luck`は、問題の任意の種類を説明しません

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