Use Excel VBA to click on a button in Internet Explorer when the button has no name associated

Question

I m trying to use excel to automate the value entering in a time sheet   The time sheet is on a web page  Right now I m able to load the page  enter my username and password and then entering the time sheet by itself   See code below    At this point I need to click on a  button to open sub-forms   I can t know in advance how many sub-forms there will be to open   I know how to click on a button when it has a  name    But in this case there s none     So my updated code below use a loop to open every other subform  It works the first time  but when I do it again   Could someone point me how to determine how many of those button there is in the page and how to click on each  Following I m placing the code I have until now and below it  the HTML code of the page I need to interact with     Private Sub time sheet filling        Dim I As Long     Dim IE As Object     Dim doc As Object     Dim objElement As Object     Dim objCollection As Object        Create InternetExplorer Object     Set IE   CreateObject  InternetExplorer Application       IE Visible   True        Send the form data To URL As POST binary request     IE navigate  http   timesheet cccc ca timesheet          Wait while IE loading        Do While IE Busy         Application Wait DateAdd  s   1  Now      Loop           Load the logon page     Set objCollection   IE Document getElementsByTagName  input       I   0     While I  lt  objCollection Length         If objCollection I  Name    txtUserName  Then               Set text to enter             objCollection I  Value    6666          End If         If objCollection I  Name    txtPwd  Then               Set text for password             objCollection I  Value    password          End If         If objCollection I  Type    submit  And objCollection I  Name    btnSubmit  Then   submit button clicking             Set objElement   objCollection I          End If         I   I   1     Wend      objElement Click      click button to load the form        Wait while IE re-loading        Do While IE Busy         Application Wait DateAdd  s   1  Now      Loop        Show IE     IE Visible   True   Dim links  link Dim n  j Set links   IE Document getElementById  dgTime   getElementsByTagName  a   n   links Length   For j   0 To n - 1 Step 2     links j  Click  I have some operations to be done will post another question for this IE Document getElementById DetailToolbar1 lnkBtnSave   Click               save IE Document getElementById DetailToolbar1 lnkBtnCancel   Click             close Next    End Sub     So extract of the html code is below   I m trying to click the button that is coded in the last line of the html code below   lt table width  984  class  Grid  id  dgTime  border  1  rules  all  cellspacing  0  gt     lt tbody gt       lt tr class  GridHeader  gt       lt  tr gt       lt tr class  GridItem  gt       lt  tr gt       lt tr class  GridItem  gt         lt td class  GridButtonColumn  gt           lt a href  javascript   doPostBack  dgTime  ctl2  ctl0       gt             lt img src  images toolbar b edit gif  gt           lt  a gt         lt  td     Tx Tim for the answers   Now I m able to select the first subform button to open it     links j  click    j   0    I then save it  close  and come back to the main form   But then when I try to do  links j  click    j   2 this time   the second time I get a runtime error 70   permission denied   Anymore kind help will be so appreciated  Regards

User · Answer

CSS selector   Use a CSS selector of img src  images toolbar b edit gif    This says select element s  with img tag with attribute src having value of  images toolbar b edit gif     CSS query       VBA   You can apply the selector with the  querySelector method of document   IE document querySelector  img src  images toolbar b edit gif     Click

User · Answer

IE Document getElementById  dgTime   getElementsByTagName  a   0  Click   EDIT  to loop through the collection  items should appear in the same order as they are in the source document   Dim links  link   Set links   IE Document getElementById  dgTime   getElementsByTagName  a     For Each loop For Each link in links     link Click Next link   For Next loop Dim n  i n   links length For i   0 to n-1 Step 2     links i  click Next I

User · Answer

With the kind help from Tim Williams  I finally figured out the last d  tails that were missing   Here s the final code below     Private Sub Open multiple sub pages from main page     Dim i As Long Dim IE As Object Dim Doc As Object Dim objElement As Object Dim objCollection As Object Dim buttonCollection As Object Dim valeur heure As Object     Create InternetExplorer Object Set IE   CreateObject  InternetExplorer Application     You can uncoment Next line To see form results IE Visible   True    Send the form data To URL As POST binary request IE navigate  http   webpage com      Wait while IE loading    While IE Busy         DoEvents Wend   Set objCollection   IE Document getElementsByTagName  input    i   0 While i  lt  objCollection Length     If objCollection i  Name    txtUserName  Then           Set text for search         objCollection i  Value    1234      End If     If objCollection i  Name    txtPwd  Then           Set text for search         objCollection i  Value    password      End If      If objCollection i  Type    submit  And objCollection i  Name    btnSubmit  Then   submit button if found and set         Set objElement   objCollection i      End If     i   i   1 Wend objElement Click      click button to load page    Wait while IE re-loading    While IE Busy         DoEvents Wend    Show IE IE Visible   True Set Doc   IE Document  Dim links  link  Dim j As Integer                                                                     variable to count items j   0 Set links   IE Document getElementById  dgTime   getElementsByTagName  a   n   links Length While j  lt   n                                     loop to go thru all  a  item so it loads next page     links j  Click     While IE Busy         DoEvents     Wend      -------------Do stuff here   copy field value and paste in excel sheet   Will post another question for this------------------------     IE Document getElementById  DetailToolbar1 lnkBtnSave   Click               save     Do While IE Busy         Application Wait DateAdd  s   1  Now                                     wait     Loop     IE Document getElementById  DetailToolbar1 lnkBtnCancel   Click             close     Do While IE Busy         Application Wait DateAdd  s   1  Now                                     wait     Loop     Set links   IE Document getElementById  dgTime   getElementsByTagName  a       j   j   2 Wend     End Sub

[html] Use Excel VBA to click on a button in Internet Explorer, when the button has no "name" associated

Examples related to html

Examples related to excel

Examples related to vba

Examples related to internet-explorer

Examples related to web-scraping