使用 Selenium 的 Excel VBA - 选择 Chrome Web 下拉列表

Question

在“EndIf”行之前完成我的 VBA 代码。请帮我从 Target Inspect HTML code 下方选择 Gender。 下面是我写到现在的代码。请帮忙完成。

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

本次检查的目标站点

<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>

Answer 1

您提供了 2 次 End If，这将引发错误。这应该是您的正确代码。

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