使用selenium v​​ba从网页中查找img标题的vba代码

时间:2018-01-29 06:11:58

标签: vba selenium firefox

我试图在网页上找到img标题使用selenium v​​ba以下是我正在使用但未获得任何结果的vba代码以及下面是我想要在excel表中的数据的银行的图像。 请你帮我。



Sub Class_Initialize()
Set driver = CreateObject("Selenium.FirefoxDriver")
driver.get "https://www.99acres.com/supertech-cape-town-sector-74-noida-npxid-r922?sid=UiB8IFFTIHwgUyB8IzMxIyAgfCAxIHwgNyM0MyMgfCA4MjEyIHwjNSMgIHwg"
driver.Window.Maximize
Dim dd As Variant
dd = driver.findElementByClass("bankBodr bankTuple").Text
Range("A1") = dd
End Sub




enter image description here

1 个答案:

答案 0 :(得分:0)

试试这个。它会引导您获取内容。事实证明,在您向下滚动浏览器之前,您所看到的项目是不可见的。所以我使用了一个javascript代码让浏览器滚动到底部,以便可以看到项目。

Sub Get_Titles()
    Dim post As Object

    With CreateObject("Selenium.ChromeDriver")
        .get "https://www.99acres.com/supertech-cape-town-sector-74-noida-npxid-r922?sid=UiB8IFFTIHwgUyB8IzMxIyAgfCAxIHwgNyM0MyMgfCA4MjEyIHwjNSMgIHwg"
        .ExecuteScript ("window.scrollTo(0, document.body.scrollHeight);")
        .Wait 500
        For Each post In .FindElementsByCss("#carousel img")
            r = r + 1: Cells(r, 1) = post.Attribute("title")
        Next post
        .Quit
    End With
End Sub

输出:

LIC Housing Finance Ltd.
AXIS Bank LTD.
IDBI Bank Ltd.
Corporation Bank
HDFC home loans

顺便说一句,更改CreateObject("")内的部分以适合您的司机。