使用 vba 4 从网站抓取数据

Question

我正在尝试使用 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

您所要做的就是将“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