Use Excel VBA to select a radio button

[hansest1]

I am a newbie to Excel VBA and am seeking to select a radio button using VBA code.

the Code I have written is simply:

Sub Consolidations()
Dim iLastRow As Integer
Dim Rng As Range
Dim IE As Object

Set IE = CreateObject("Internetexplorer.Application")
On Error GoTo errHandler

With IE
.Visible = True
.navigate "https://loanconsolidation.ed.gov/AppEntry/QuestionAnswerServlet?Button_Pressed_Hid=FirstTime&Language_Hid=english&Process_Flow_Hid=print"

While IE.busy:
DoEvents
Wend

IE.document.question1.Checked = True

End With


This Navigates to the page just fine but doesn't seem to check the radio box. Any suggestions??

 

[John_w]

The question1 radio buttons have on click (without the space) handlers so you have to call the Click method and wait for the page to update. For the other radio buttons, set the Status property. In each case, (0) is the Yes button and (1) is the No button.

Option Explicit

Const READYSTATE_COMPLETE = 4

Sub Consolidations()
    Dim iLastRow As Integer
    Dim Rng As Range
    Dim IE As Object
    
    Set IE = CreateObject("Internetexplorer.Application")
    
    With IE
        .Visible = True
        .navigate "https://loanconsolidation.ed.gov/AppEntry/QuestionAnswerServlet?Button_Pressed_Hid=FirstTime&Language_Hid=english&Process_Flow_Hid=print"
        While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        
        .document.all("question1")(1).Click                                 'Choose No
        While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        
        .document.all("question4")(0).Status = True                         'Choose Yes
    End With

End Sub

 

[hansest1]

terrific. thank you!

 

[hansest1]

Any thoughts on how to select the Continue button, that doesn't seem to be working

<BR> <A href="/AppEntry/apply-online/appindex.jsp"><IMG src="/AppEntry/images/back.gif" border="0" alt="back"></A>    <A href="javascript:UserSelection('continue')"><IMG src="/AppEntry/images/continue.gif" border="0" alt="continue"></A></TD>

I tried .Document.forms(0).Click but that doesn't seem to work.

 

[Norie]

You can try this.

Dim frm As Object
 
 ' code to select options etc
 
 ' run this code once above complete
Set frm = IE.document.getelementbyid("questionanswer")
 
frm.submit

Note, if there are any mistakes on the form, eg unanswered question, this will probably display some sort of error page.