Button Click in Internet - Button without 'Name'!!

[23izkool]

Hi all,
I am having problem clicking a button in an Internet Browser where the source code for the button only gives the (1) input type & (2) id BUT not the (3) name!
SOURCE CODE FOR BUTTON WITHOUT NAME
<input type="button" id="ImportingButton" class="C00_Button1" value="Importingvalue" *******="performUpload();"/>

I have already successfully written a code to click internet buttons WITH names:
SOURCE CODE FOR BUTTON WITH NAME
<input type="button" name="ImportingButton" id="ImportingButton" class="C00_Button1" value="Importingvalue" *******="performUpload();"/>
VBA CODE TO CLICK BUTTON
Sub ClickButton()
Dim objIE as InternetExplorer, appIE as InternetExplorer
Dim btnInput as MSHTML.HTMLInputElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim Done as Long, Nm as Long
Dim url as string
Application.ScreenUpdating = False
Nm = 1234
Set appIE = New InternetExplorer
url = (the website link I'm trying to access)
' ---- click the editbutton (start) ----
Set ElementCol = appIE.document.getElementsByTagName("Input")
For Each btInput In ElementCol
If btInput.name = "ImportingButton" Then
Done = Done + 1
btnInput.Click
End If
Next btnInput
' --- click the editbutton (end) ---
End Sub

** MODIFIED VBA CODE TO CLICK BUTTON **
Sub ClickButton()
Dim objIE as InternetExplorer, appIE as InternetExplorer
Dim btnInput as MSHTML.HTMLInputElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim Done as Long, Nm as Long
Dim url as string
Application.ScreenUpdating = False
Nm = 1234
Set appIE = New InternetExplorer
url = (the website link I'm trying to access)
' ---- click the editbutton (start) ----
Set ElementCol = appIE.document.getElementsByTagName("Input")
For Each btInput In ElementCol
If btInput.ID = "ImportingButton" Then
Done = Done + 1
btnInput.Click
End If
Next btnInput
' --- click the editbutton (end) ---
End Sub
When I ran the above macro, the program hung & I had to force-stop the macro by pressing 'Ctrl-Break'
When I investigated the debugging portion --> it highlighted the code 'btnInput.ID...'
Believe this can be solved BUT no clue now..Hope someone can advise!!
Thanks everyone!!!

 

[Leith Ross]

Hello 23izkool,

If you know the ID, you don't need the name. You can access the object like this in VBA...

    Set btnInput = appIE.Document.getElementById("ImportingButton")

You must be sure the ID is correct or the object will be set to Nothing. To verify the ID, check the page source of the web page.

Sincerely,
Leith Ross

 

[23izkool]

(Pls ignore previous thread!!) Button Click in Internet - Button without 'Name'!!

Hi all,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>I am having problem clicking a button in an Internet Browser where the source code for the button only gives the (1) input type & (2) id BUT not the (3) name!
<o> </o>
SOURCE CODE FOR BUTTON WITHOUT NAME

<input type="button" id="ImportingButton" class="C00_Button1" value="Importingvalue" *******="performUpload();"/>

<o> </o><o> </o>
I have already successfully written a code to click internet buttons WITH names:
<o> </o>
SOURCE CODE FOR BUTTON WITH NAME

<input type="button" name="ImportingButton" id="ImportingButton" class="C00_Button1" value="Importingvalue" *******="performUpload();"/>

<o> </o>
VBA CODE TO CLICK BUTTON
Sub ClickButton()
<o> </o>
Dim objIE as InternetExplorer, appIE as InternetExplorer
Dim btnInput as MSHTML.HTMLInputElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim Done as Long, Nm as Long
Dim url as string
<o> </o>
Application.ScreenUpdating = False
Nm = 1234
<o> </o>
Set appIE = New InternetExplorer
<o> </o>
url = (the website link I'm trying to access)
<o> </o>
' ---- click the editbutton (start) ----
<o> </o>
Set ElementCol = appIE.document.getElementsByTagName("Input")
For Each btInput In ElementCol
If btInput.name = "ImportingButton" Then
Done = Done + 1
btnInput.Click
End If
Next btnInput
<o> </o>
' --- click the editbutton (end) ---
<o> </o>
End Sub
<o> </o>
<o> </o>
<o> </o>
** MODIFIED VBA CODE TO CLICK BUTTON **
Sub ClickButton()
<o> </o>
Dim objIE as InternetExplorer, appIE as InternetExplorer
Dim btnInput as MSHTML.HTMLInputElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim Done as Long, Nm as Long
Dim url as string
<o> </o>
Application.ScreenUpdating = False
Nm = 1234
<o> </o>
Set appIE = New InternetExplorer
<o> </o>
url = (the website link I'm trying to access)
<o> </o>
' ---- click the editbutton (start) ----
<o> </o>
Set ElementCol = appIE.document.getElementsByTagName("Input")
For Each btInput In ElementCol
If btInput.ID = "ImportingButton" Then
Done = Done + 1
btnInput.Click
End If
Next btnInput
<o> </o>
' --- click the editbutton (end) ---
<o> </o>
End Sub
<o> </o>
When I ran the above macro, the program hung & I had to force-stop the macro by pressing 'Ctrl-Break'
When I investigated the debugging portion --> it highlighted the code 'btnInput.ID...'
<o> </o>
Believe this can be solved BUT no clue now..Hope someone can advise!!
Thanks everyone!!

 

[Leith Ross]

Hello 23izkool,

Can you post either the URL or the page source for the website? I would need one or the other to get the ID for this button, if it does in fact have ID. This property is not mandatory in HTML.

Sincerely,
Leith Ross

 

[23izkool]

Pls ignore previous 2 threads - sorry!

Hi all,

Sorry realized the source code did not show up properly in the previous 2 threads. I already tried "

------

" but still cannot get it to work.

• Hope someone can advise on my problem so that I can make progress!
• Appreciate if the administrator or anyone here can advise me how to post the source codes properly here

Thanks!

 

[RSXchin]

Re: Pls ignore previous 2 threads - sorry!

just give us the link