VBA internetexplorer automation

[Philip00]

Hi All,

I'm trying to do some automation on internet explorer.

I want to hit the search bar "amarindaz" and see the result on A1

I have done the code according this video https://www.google.hu/url?sa=t&rct=...=UU4hVjOnGFA&usg=AOvVaw1BBmESkGfuuZglH1u8wynL

using this code

Sub iepart2()


Dim ie As Object






Set ie = CreateObject("internetexplorer.application")


With ie
.Visible = True
.navigate "https://www.google.co.uk"
Do While .busy
DoEvents
Loop


Do While .readystate <> 4
DoEvents
Loop






Set searchtxt = .document.getelementbyid("q")


searchtxt.Value = "Amarindaz"


.document.forms(0).submit


Do While .busy
DoEvents
Loop


Do While .readystate <> 4
DoEvents
Loop


Set searchres = .document.getelementbyud("resultStats")


ThisWorkbook.Sheets(1).Range("a1") = searchres.innertext



End With



End Sub

However on "Set searchtxt = .document.getelementbyid("q")" part i get error as:

Compile error:

Variable not defined

for what should i define this variable in order to make this code work?

Thank you so much for your help in Advance

 

[Domenic]

Actually, the id is "lst-ib", not "q". Therefore, try the following instead...

Set searchtxt = .document.getelementbyid("lst-ib")

Also, you have a typo. It should be...

Set searchres = .document.[COLOR=#ff0000]getelementbyid[/COLOR]("resultStats")

Hope this helps!

 

[Philip00]

Thank you actually the first one has worked too.

Can somebody help me how to make automation in order to click a button in a page?

here is the source file of the button whiich i want to push it:

a class="buttonLookUp btn btn-small btn-primary" id="lookup_POD_0_DK_48747_184812_45475" href="javascript:;">strong>Look Up

I have tried this but it won't work

Set btnObject = ie.document.getElementbyID("lookup_POD_0_DK_48747_184812_45475")    

btnObject.FireEvent ("href")

Thank you in Advance