Count the number of elements in a dropdown on a website

[yussi1870]

I've tried a few options from scouring the web and I think my problem is I have Option Explicit set and I don't know which are variables to declare and what to declare them as. My code snippet is below. Basically I want to count how many elements are in the dropdown clicked here: .FindElementByXPath("//div[1]/*[name()='svg'][1]"). I then want to replace the 300 below with the count of elements. Any help is appreciated!

Dim iTotalScore As Integer
Dim iNameCount As Integer
Dim iNameCountTotal As Integer
Dim sName As String
Dim d As WebDriver
Set d = New ChromeDriver
With d
.Start "Chrome"
.Get "https://someurl.com"

For iNameCount = 1 To 300

.FindElementByXPath("//div[1]/*[name()='svg'][1]").Click
Application.Wait (Now + TimeValue("0:00:03"))
'do bunch of stuff

Next iNameCount

 

[John_w]

Try this:

    Dim ddOptions As WebElements, i As Long
    Set ddOptions = .FindElementsByXPath("//div[1]/*[name()='svg'][1]")
    For i = 1 To ddOptions.Count
        ddOptions(i).Click
    Next

 

[yussi1870]

I got a type mismatch error on "set ddOptions." I declared it as webelements as you suggested. I put it within the "with d" area of the code. Should it have come prior to "with d"?

 

[John_w]

Inside the With d.

 

[yussi1870]

ok, so it is inside the with d but I'm still getting that type mismatch error.

 

[John_w]

FindElementsByXPath returns a WebElements object, so I don't understand why you're getting a type mismatch error.

Try declaring ddOptions as Object instead.