Excel VBA using Selenium - Select Chrome Web DropDown List

Question

Complete my VBA code before the "EndIf" line. Please help me select the Gender from below Target Inspect HTML code . Below is my code which I have written till now. Please help to complete it.

Sub google_search()
    Dim row As Integer
    row = 2
    Dim bot As WebDriver
    Set bot = New WebDriver
    bot.Start "chrome"
    bot.Get "https://abcd.com/"     



    bot.FindElementbyName("patient_name").SendKeys "Value"
    bot.FindElementbyName("patient_id").SendKeys "Value"

    If Sheet1.Cells(row, 4) = "Years" Then
       bot.FindElementById("age_year").Click
       bot.FindElementbyName("age").SendKeys "Value"
    Else
    If Sheet1.Cells(row, 4) = "Months" Then
       bot.FindElementById("age_month").Click
       bot.FindElementbyName("age").SendKeys "Value"
    Else
    End If
    End If

    If Sheet1.Cells(row, 6) = "M" Then
    
        ...........................................................
        
    End If

 


    Stop

    End Function

Target Site as this inspect

<div class="form-group">

<label for="gender">Gender</label><span class="text-danger"><b> *</b></span>

<select name="gender" id="gender" class="form-control">

<option value="">Select Gender</option>

<option value="M">Male</option>

<option value="F">Female</option>

<option value="T">Transgender</option>

</select>

</div>

Sonali Das · Accepted Answer · 2021-05-09 12:00:52Z

1

You are providing 2 times End If, which will throw an error. This should be your correct code.

Sub google_search()
Dim row As Integer
row = 2
Dim bot As WebDriver
Set bot = New WebDriver
bot.Start "chrome"
bot.Get "https://abcd.com/" 

bot.FindElementbyName("patient_name").SendKeys Sheet1.Cells(row, 2).Value
bot.FindElementbyName("patient_id").SendKeys Sheet1.Cells(row, 3).Value

If Sheet1.Cells(row, 4) = "Years" Then
    bot.FindElementById("age_year").Click
    bot.FindElementbyName("age").SendKeys Sheet1.Cells(row, 5).Value
ElseIf Sheet1.Cells(row, 4) = "Months" Then
    bot.FindElementById("age_month").Click
    bot.FindElementbyName("age").SendKeys Sheet1.Cells(row, 5).Value
End If


If Sheet1.Cells(row, 6) = "M" Then
    Dim GenderDD As Selenium.WebElement
    Set GenderDD=bot.FindElementById("gender")
    GenderDD.AsSelect.SelectByText(Sheet1.Cells(row, 6).value)
End If

 


Stop

End Function

edited May 9, 2021 at 12:00

answered May 9, 2021 at 11:26

Sonali Das

1,0341 gold badge9 silver badges25 bronze badges

Sign up to request clarification or add additional context in comments.

9 Comments

Joseph John Over a year ago

Please make focus on doted lines (just before the EndIf) .. I want to choose Gender from Excel to Web by Selenium Bot. what you said is not even an error.

Joseph John Over a year ago

Now we are focusing on the real matter, it's showing error in that specific line "Syntax Error - Compile Error" is any library cmd added in beginning codes ?

Sonali Das Over a year ago

i have changed slightly as below Dim Element As Selenium.WebElement Set Element GenderDD=bot.FindElementById("gender"). check now

Joseph John Over a year ago

Compile error- Expected: = highlighting on GenderDD

Sonali Das Over a year ago

here is the change Dim GenderDD As Selenium.WebElement Set GenderDD=bot.FindElementById("gender") GenderDD.AsSelect.SelectByText(Sheet1.Cells(row, 6).value)

|

Collectives™ on Stack Overflow

Excel VBA using Selenium - Select Chrome Web DropDown List

1 Answer 1

9 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

9 Comments

Your Answer

Sign up or log in

Post as a guest

Related