用Selenium运行VBA循环将html数据转换为Excel

我最近协助从Stackoverflow的家伙从网页上抓取数据。 这是一个伟大的社区。 我被给了一个函数，将数据从包含url的单元格中提取到excel中。 不幸的是，我遇到了一些问题，因为我需要一个循环function，以便Excel保存或刷新页面后，不会重新启动所有我的function。

到目前为止，我试图build立这个，但在VBA旁边是无用的。 想知道是否有人可以提供一点额外的帮助。

Sub POSTPageViews() Dim InputSheet As Worksheet Dim i As Long Dim AllWords As Range Dim text As String Dim OutValue As String Dim driver As SeleniumWrapper.WebDriver On Error Resume Next Set driver = New SeleniumWrapper.WebDriver driver.Start "chrome", "https://re.po.st/" driver.Open strLocation Set InputSheet = Active Set WorkRng = Application.Selection WordListSheet.Range("E1") = "All Words" InputSheet.Activate r = 1 Do While Cells(r, 1) <> "" Cells(r, 1).Value = txt OutValue = driver.findElementById("sguidtotaltable").findElementByTagName("span").text Next i r = r + 1 driver.stop 'Stops the browser Loop End Sub 

但自然是不行的…有人看到有什么不对？ 基本上在EI列中有所有的URL，并且在KI列希望看到相应的值。

谢谢

Answer 1

这是否工作（按照我的意见）？

 Sub POSTPageViews() Dim driver As SeleniumWrapper.WebDriver Set driver = New SeleniumWrapper.WebDriver driver.Start "chrome", "https://re.po.st/" With Worksheets("Trial") r = 2 Do While .Cells(r, 5) <> "" driver.Open .Cells(r, 5).Value .Cells(r, 11) = driver.findElementById("sguidtotaltable").findElementByTagName("span").text r = r + 1 Loop driver.stop 'Stops the browser End Sub