Question

我正试图从Met办公室网站使用VBA网络刮取拉伦敦的最低夜间温度。我尝试使用已发布的代码here。代码运行时，它不会复制我需要复制的内容。非常感谢协助。

iso_1

Answer 1

简单问题Karm。对不起，我们在这个社区有一些粗鲁的成员。

您所要做的就是在代码中添加“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

使用vba 4从网站上搜索数据

1 个答案: