如何在Vba中使用Xpath提取数据

Question

我想从每一行提取表数据，但它不起作用。当我将tr更改为tr[2]时，它就起作用了，否则只提取空白值

Dim driver As New WebDriver
Dim Url
Dim Rows As WebElements
Dim Value as Webelement
Set Rows = driver.FindElementsByXpath("/html/body/div[3]/div[2]/div/form/div[3]/div/div[3]/div[3]/div/table/tbody/tr")
cnt = 1
For Each Value In Rows
Range("a" & cnt) = Value.FindElementByXPath("td[8]").Text 
Range("b" & cnt) = Value.FindElementByXPath("td[7]").Text
Range("c" & cnt) = Value.FindElementByXPath("td[10]").Text
Range("d" & cnt) = Value.FindElementByXPath("td[11]").Text
Range("e" & cnt) = Value.FindElementByXPath("td[18]").Text
Range("f" & cnt) = Value.FindElementByXPath("td[19]").Text
Range("g" & cnt) = Value.FindElementByXPath("td[20]").Text
cnt = cnt + 1
Next

Answer 1

将col_n调长对于i=1到NumCols如果单元格(1；您正在查找的列标题"；那么col_n=i下一个

对于i=1到NumRows单元格(i，col_n(。值="；PHEV"；下一个i