使用 Selenium 和 VBA 提取数据

Question

我是使用硒的新手。我有一个与 IE 不兼容的网站，所以我决定尝试这种新技术，但看不出我的代码有什么问题。任何帮助将不胜感激。

 Sub ExtractPrice()
    
        Dim bot As WebDriver, myproducts As WebElements, myproduct As WebElement
        Set bot = New WebDriver
        bot.Start "chrome"
        bot.Get "https://www.veadigital.com.ar/prod/72060/lechuga-capuchina-por-kg"
    '    Application.Wait Now + TimeValue("00:00:20")
        Set myproducts = bot.FindElementsByClass("datos-producto-container")
    '
    For Each myproduct In myproducts
    If myproduct.FindElementByClass("product-price").Text <> "" Then
    'Debug.Print myproducts.FindElementByClass("product-price").Text
        Worksheets("VEA").Range("b2").Value = myproducts.FindElementsByClass("product-price").Text
        End If
    Next
    
    MsgBox ("complete")
    End Sub

Answer 1

问题出在这一行：

Worksheets("VEA").Range("b2").Value = myproducts.FindElementsByClass("product-price").Text

记住FindElements，返回一个webelements列表而不是webelements。 Instaead 使用您在 if 条件中使用的行。

Worksheets("VEA").Range("b2").Value=myproduct.FindElementByClass("product-price").Text 

Note : 使用上面的代码行，您将获得您的价格，但价格将是 $379 而不是 $3.79。因为没有。在页面上的价格。存储价格的更好方法是：

Dim intValue = myproduct.FindElementByClass("product-price").Text
Dim decValue=   myproduct.findElementByXPath(".//div[@class='product-price']//span").Text
Worksheets("VEA").Range("b2").Value = Replace(intValue , decValue, "."&decValue)

以上将分配 3.79 美元。