• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Web VBA issue

S

sms2luv

Member
Hi, I am making a VBA code to open a site to get some data and need help.

Its a intranet site
The site has a certifical error, so every time we open the site, we have to click on proceed to site anyway.

The site then have a agree button for terms and conditions.

Code I used is as below.
Ms internet controls and ms HTML references are added.
Code: 
Dim ie as new shwdoc.internetexplorer
Dim htmldoc as mshtml.htmldocument
Dim htmlinput as mshtml.ihtmlelement

ie.visible = true
is.navigate "site name"

Do while readystate <> readystate complete
Loop

Set htmldoc = ie.document

'For clicking proceed to site 
Set htmlinput = htmldoc.getelementbyid("override")
htmlinput.Click

'For clicking I Agree
Set htmlinput = htmldoc.getelementbyid("btnagree")
htmlinput.Click

End sub

When I run this, a new ie opens and I am directed to I Agree page, which means proceed to site is working.
But for some reason its not able to click on I Agree

Please help
 
From what you described. After below operation...
Code: 
Set htmlinput = htmldoc.getelementbyid("override")
htmlinput.Click

A new IE opens. Correct?

That means you need to set new instance of IE as htmldoc before you can use it. Or you are just using previous page and code won't find "btnAgree" in the doc.
 
Sorry to say, but override is a hyperlink in the page and it says proceed to the site anyway.
Image attached as sample.

When I click on proceed anyway, I get I agree page.
This does not open a new page.
 

Attachments

  • images.jpg
    images.jpg
    14.8 KB · Views: 4
Hmm? When you print entire content of htmldoc, "Before" you click on override. What do you get? And what do you get after you click on override?

I ask, since the php/html you posted does not have elementid "override" in it.

Edit: Also, I'd recommend installing certificate (get IT to do it for you if needed) or fix it by adjusting computer time and/or by deleting the site from Untrusted Publishers
 
Last edited:
As soon as ie opens, I get a message that the site has a certificate error (example image attached earlier).
After 1 sec I get a page to agree to the terms and after that nothing happens.

I used ie to inspect the page, and when I highlighted the "proceed to site anyway" I got an id named override.
 
I get that. That's not the issue.

You are setting htmldoc = ie.document before you click override. Yes?

You then click on override. Then it loads the page. Now, htmldoc is before the click, so isn't updated to newly loaded page.

You have to wait for new page to load, then reset the htmldoc.
 
Thanks a lot for faster response.
I tried the below thing, still did not work.
Entire code was same, but I added
Code: 
Dowhile readystate <> readystate complete
Loop
After clicking on override.
I mean above I agree button to reload the page completely.
 
But then you need to Set htmldoc = ie.document after clicking override as well. Since the content has changed after the click.
 
I tried the below code, but did not work, please help
Error is Run time error 91
Object variable or with block variable not set
Htmlin2.click gets highlighted for debug

Code: 
Option Explicit


Sub test()

Dim ie As New SHDocVw.InternetExplorer

Dim htmldoc As MSHTML.HTMLDocument

Dim htmlin As MSHTML.IHTMLElement

Dim htmldoc2 As MSHTML.HTMLDocument

Dim htmlin2 As MSHTML.IHTMLElement


ie.Visible = True

ie.navigate "Site Name"


Do While ie.readyState <> READYSTATE_COMPLETE

Loop



Set htmldoc = ie.document

Set htmlin = htmldoc.getElementById("overridelink")

htmlin.Click


Do While ie.readyState <> READYSTATE_COMPLETE

Loop



Set htmldoc2 = ie.document

Set htmlin2 = htmldoc.getElementById("btnAgree")

htmlin2.Click


End Sub

Pasting fresh website code again, might be it had changed.
https://www.pastiebin.com/596a37c2dc23f
 
Hey team,
I tried the below and it worked.
Didn't understand why?
Code: 
Set htmldoc2 = ie.document

Set htmlin2 = htmldoc.all.item("btnAgree")

htmlin2.Click


EndSub
 
The code only worked once and failed now.
Please let me know, what should I print using Debug.print
Appreciate if I can get the code.
 
Not Debug.Print, but write to Text File.

Stick below code after you set htmldoc2. It will export innerHTML to text file to the same folder as your workbook. Upload it once done.

Code: 
    Dim intFF As Integer: intFF = FreeFile()
    Dim oPath As String: oPath = ThisWorkbook.Path & "\" & "html2.txt"
    Open oPath For Output As #intFF
    Print #intFF, htmldoc2.Body.innerHTML
    Close #intFF
 
Hi Team,


I tried 2 Thing.


(1)

Text file was not created.

Got runtime error 91, Object Variable or with Block variable not set, when I debugged it stopped on htmlin2.Click

The page stopped on “I Agree” Page.



Code: 
Option Explicit



Sub test()

Dim ie As New SHDocVw.InternetExplorer

Dim htmldoc As MSHTML.HTMLDocument

Dim htmlin As MSHTML.IHTMLElement

Dim htmldoc2 As MSHTML.HTMLDocument

Dim htmlin2 As MSHTML.IHTMLElement

ie.Visible = True

ie.navigate "Site Name"

Do While ie.readyState <> READYSTATE_COMPLETE

Loop

Set htmldoc = ie.document

Set htmlin = htmldoc.getElementById("overridelink")

htmlin.Click

Do While ie.readyState <> READYSTATE_COMPLETE

Loop

Set htmldoc2 = ie.document

Set htmlin2 = htmldoc.getElementById("btnAgree")

htmlin2.Click


Dim intFF As Integer: intFF = FreeFile()

 Dim oPath As String: oPath = ThisWorkbook.Path & "\" & "html2.txt"

 Open oPath For Output As #intFF

 Print #intFF, htmldoc2.body.innerHTML

 Close #intFF


End Sub


(2)

Added (On Error Resume Next) and ran the code, text file created

No Error Found, but it does not pass “I Agree”Page


I inspected I Agree button and got it

Code: 
<p class="text-center">

  <input class="btn btn-login" id="btnAgree" onclick="logon.hidePolicy();" type="button" value="Agree">

  </p>



REMOVED SITE NAME FROM ATTACHMENT.
 

Attachments

  • htmlin2.txt
    4.4 KB · Views: 3
Please please help me in this.
I know there are several questions in the forums to answer.
However I was stuck here, so requesting help.
 

Text file useless as not complete and without the related button …

Better than click as you could see in samples over the Web try onclick.
​
 
As written, a piece is not enough to see how the webpage works !

So if onclick does not work, I've no more concrete way
as blind without a real access to the webpage …

Just proceed a web search to try all possible ways
as you can start with this forum where you will see some buttons
not work in VBA with click statement but via other way …
​
 
You must log in or register to reply here.
Back
Top