Activate Webpage Button Where 2 Have Same Name

Hi,

I have a problem that I want to click a specific button on a webpage but there is different buttons with same name (in view source) but tabindex is different.I want to click a button where tabindex = 7.Any idea to do the specific task.

Here is the button related HTML Code.

<TABLE id="tblFindCust" cellSpacing="0" borderColorDark="buttonface" cellPadding="0" width="100%" height="32px"
	borderColorLight="black" border="0" style="BORDER: transparent 2px groove">
	<TR valign="middle">
		<TD id="FindCustomer1_ToolBar" width="239px" height="24" nowrap="nowrap">
			&nbsp;
			<button class="menubuttoninset" id="btnNumberSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="4"><IMG title="By customer phone number"alt="" src="Images/ByPhone.gif"></button>
			<button class="Toolbar" id="btnSIMSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)"name="btnSearch" type="button" tabIndex="5"><IMG title="By SIM-card number" alt="" src="Images/BySim.gif"></button>
			<button class="Toolbar" id="btnAccSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="6"><IMG title="By personal account number" alt="" src="Images/ByAccountNumber.gif"></button>
			<button class="Toolbar" id="btnContractSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="7"><IMG title="By contract number" alt="" src="Images/Contract.gif"></button>
			<button class="Toolbar" id="btnNameSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="8"><IMG title="By customer name" alt="" src="Images/ByName.gif"></button>
			<button class="Toolbar" id="btnINNSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="9"><IMG title="By INN" alt="" src="Images/ByINN.gif"></button>
            <button class="Toolbar" id="btnIMSISearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="11"><IMG title="By Network Resource Number" alt="" src="Images/ByUniqueNumber.gif"></button><button class="Toolbar" id="btnIdentificationSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement)" name="btnSearch" type="button" tabIndex="11"><IMG title="By identity card ID" alt="" src="Images/ByIdentification.gif"></button><button class="Toolbar" id="btnContactSearch" style="WIDTH: 23px; HEIGHT: 23px" onclick="TypeSearchClick(window.event.srcElement);InitContactData()" name="btnSearch" type="button" tabIndex="14"><IMG title="By contact data" alt="" src="Images/ByContact.gif"></button></TD>

Thanks in advance for helping me.

Re: Webpage Same Names Button

Quote from Dave Hawley

Why not identify the button by the ID?

here is my code and it shows error Run time error 91:object veriable or with block variable not set.

Sub tct()


Dim rng As String
Dim btn As HTMLButtonElement
Dim Doc As HTMLDocument




rng = Worksheets(1).Range("e2").Value


Dim IE As SHDocVw.InternetExplorer
Set IE = New SHDocVw.InternetExplorer


IE.Navigate "http://58.27.200.20/board/"
IE.Visible = True


Do While IE.ReadyState <> READYSTATE_COMPLETE
     Application.Wait Now + TimeValue("0:00:01")
    Loop
    
    Set Doc = IE.Document
   


  Set btn = Doc.getElementById("btnContractSearch")


 
 


 
 btn.Click
 
End Sub

Re: Activate Webpage Button Where 2 Have Same Name

Quote from Fencliff

It's hard to debug this when we don't have access to the specific website, but it might be that you get the error due to the fact that the document is not fully initialized. If memory serves me right, the .ReadyState flag is not 100% reliable. If you put a Stop statement before assigning value to the Doc variable, wait for a good while for the page to load, and then continue the execution, does it work?

No sir,Its still showing the same error message.Another clue for solving it.

Re: Activate Webpage Button Where 2 Have Same Name

Quote from Fencliff

Hmm, I uploaded the bit of HTML you posted onto my server and tested it, getElementById finds the correct control.

Here's how to do what you originally requested, but this is still just a workaround to the real problem. However that problem is really hard to troubleshoot without access to the webpage itself.

Code

Sub tct()
     
    Dim rng                 As String
    Dim btn                 As HTMLButtonElement
    Dim btnContractSearch   As HTMLButtonElement
    Dim colButtons          As IHTMLElementCollection
    
    Dim Doc                 As HTMLDocument
     
    rng = Worksheets(1).Range("e2").Value
     
    Dim IE As SHDocVw.InternetExplorer
    Set IE = New SHDocVw.InternetExplorer
     
    IE.navigate "http://58.27.200.20/board/"
    IE.Visible = True
     
    Do While IE.readyState <> READYSTATE_COMPLETE
        Application.Wait Now + TimeValue("0:00:01")
     Loop
     
    Set Doc = IE.document
     
    'Get collection of all nodes by the name btnSearch
    Set colButtons = Doc.getElementsByName("btnSearch")
    
    'Loop through the collection until we find one with tabIndex == 7
    For Each btn In colButtons
        If btn.tabIndex = 7 Then
            'Found it!
            Set btnContractSearch = btn
            Exit For
        End If
    Next btn


    btnContractSearch.Click
     
End Sub

Display More

Thanks for your quick reply but it has the same problem.

Re: Activate Webpage Button Where 2 Have Same Name

Quote from Fencliff

What throws the error this time?

Well, can you check the state of the Doc object upon the time of crash (take doc.body.innerHTML and compare it to the source of the web page - are these identical?)

Other than that, I'm afraid I can't really help without being able to access the website.

Do you mean I should check the viewsourc before error and after error or simply check viewsource through right click and through VBA and then make comparison.[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

Quote from Fencliff

What throws the error this time?
Actually this aour webbased software and only run on intranet so it can not be access out of the premesis.
Well, can you check the state of the Doc object upon the time of crash (take doc.body.innerHTML and compare it to the source of the web page - are these identical?)

Other than that, I'm afraid I can't really help without being able to access the website.

Do you mean I should check the viewsourc before error and after error or simply check viewsource through right click and through VBA and then make comparison.[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

Re: Activate Webpage Button Where 2 Have Same Name

Re: Activate Webpage Button Where 2 Have Same Name

Sir,

I am so confused because view source material is totally different according process doene by your opinion and now I use the Internet Developer Toolbar to show the different elements on the page but it shows me no such things i.e. images,buttons.input text etc.

According to my understanding (Because I know a very little about IE and VBA integration)the orignal location is different and view source buttons on are another location so it is not clickable.So what should be the next step to do the task.Any helpful tutorials/site except of w3schools or any other material because simple html books do not learn integration with VBA.

Sorry for bothering you.

Re: Activate Webpage Button Where 2 Have Same Name

Quote from Fencliff

I don't actually quite understand what you're saying - do you mean that when you click "view source..." in your browser, it doesn't show you the same DOM (document object model) as IE Developer Toolbar? If this is the case, could you post the HTML you see when you click "view source.."? I'm thinking the website might be using frames, and would like to verify that.

Here is the viewsource file.Sorry for before bcoz I have not explore the developer toolbar.Now I am exploring it.

Re: Activate Webpage Button Where 2 Have Same Name

here is the debug output and webpage pic.

Re: Activate Webpage Button Where 2 Have Same Name

Quote from Fencliff

Hi,

The reason why you keep getting the error is that the buttons aren't actually part of the main document displayed in the window, but an embedded IFrame object.

You can try to change your code so that it refers to that embedded document:

Code

Set Doc = IE.document.frames(0).document

However I can't see the contents of that embedded frame, because I don't have access to your system. This frame might contain more frames, which may contains more frames etc, in which case you might need to traverse the document.frames collection deeper:

Code

Set Doc = IE.document.frames(0).document.frames(n).document.frames '...

Godspeed and good luck, unfortunately I can't help you any further.

Display More

I have the following line with the help of webpage inspector programme

document.all.WorkFrame.contentWindow.document.all.CustomerInfo.contentWindow.document.forms.Form1.btnContractSearch

So what do you think now?Can I a click the desired button?