使用Selenium VBA将动态网页表中的单元格值带到excel单元格

Question

我是Selenium VBA的新手，并且在Google谷歌搜索后创建了以下代码，以便使用Selenium VBA从动态网页中获取每个单元格的值。 我在接收web_tr和web_td Web元素中的Web元素时遇到错误

尝试使用此行：

ActiveSheet.Cells(i, 1).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[1]").Text

我得到的是标题行项目的第一个值，尽管它位于循环中。

Web_tr和web_td是Web元素，在这里接收到这些变量的Web元素是问题。 请协助。

---

With ThisWorkbook
        .Sheets("UpfrontOrder#").Activate

       Set web_table = selenium.findElementsByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody")
       Set web_tr = web_table.findElementsByTagName("tr")   '***** the error pop-up gets in here****
       row_count = selenium.findElementsByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr").Count

       For i = 1 To row_count
            Set web_td = web_tr.findElementsByTagName("td")
            ActiveSheet.Cells(i, 1).Value = web_td(1).getText

            'ActiveSheet.Cells(i, 1).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[1]").Text
            ActiveSheet.Cells(i, 2).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[2]").Text
            ActiveSheet.Cells(i, 3).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[3]").Text
            ActiveSheet.Cells(i, 4).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[4]").Text
            ActiveSheet.Cells(i, 5).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[5]").Text
            ActiveSheet.Cells(i, 6).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[6]").Text
            ActiveSheet.Cells(i, 7).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']/td[7]").Text

            'ActiveSheet.Cells(i, 1).Value = web_td.findElementByXPath("td[1]").Text
            'ActiveSheet.Cells(i, 2).Value = web_td(1).Text

        Next i
End With

Answer 1

我对VBA版本的Selenium并不是很熟悉，但是据我所知，我认为有一个问题引起了您遇到的错误。 当您使用.findElements* （复数）时，它将返回元素的集合，而不仅仅是单个元素。 您的第一行（下面）使用.findElements()但第二行（下面）没有指定要引用的web_table集合中的哪个元素。

Set web_table = selenium.findElementsByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody")
Set web_tr = web_table.findElementsByTagName("tr")   '***** the error pop-up gets in here****

您可以尝试执行以下两种修复方法之一...

1. 将.findElements()更改为.findElement()以便仅获取第一个（并且可能仅？）表。 如果只想要第一个，这是解决此问题的正确方法。

2. 在第一行的元素集合中添加一个索引，例如change web_table. 到web_table(1). 如果要使用第一个TABLE标记以外的其他TABLE标记，请添加正确的引用。

    Set web_table = selenium.findElementsByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody") Set web_tr = web_table(1).findElementsByTagName("tr") add this _____________^^^ 

---

附加说明：我还有另一个建议来简化您的某些代码。 在您的For i循环中，您具有2-7的硬编码索引，我认为您可以轻松地使用循环。 我更新了下面的代码。 这完成了两件事...

1. 它消除了页面的重复刮擦。 在原始代码中，您一次刮取一个元素。 在下面的代码中，我获取了TD的集合，然后遍历它们。 这样，我只刮了一次页面即可得到我关心的所有元素，然后处理该集合。 效率更高。
2. 简化代码。

For i = 1 To row_count
    Set web_td = web_tr.findElementsByTagName("td")
    ActiveSheet.Cells(i, 1).Value = web_td(1).getText
    Dim tds As New List
    Set tds = ActiveSheet.Cells(i, 2).Value = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr['i']")
    For j = 2 To 7
        ActiveSheet.Cells(i, j).Value = tds(j).Text
    Next j
Next i

Answer 2

谢谢你们俩

以下代码可以很好地找到每个单元格的值。

With ThisWorkbook
        .Sheets("UpfrontOrder#").Activate

       Set web_table = selenium.findElementByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody")
       Set web_tr = web_table.findElementsByTagName("tr")

       row_count = selenium.findElementsByXPath("//table[@id='ctl00_cphContentBody_itemsTable']/tbody/tr").Count

       For i = 0 To (row_count - 2)

            Set web_td = web_tr(i).findElementsByTagName("td")
            For j = 0 To 6
                   ActiveSheet.Cells((i + 1), (j + 1)).Value = web_td(j).Text
            Next j
        Next i
End With