Problem with HTML.innertext of loaded webpage

[tyson_t]

Hi, i'm really new here and really not familiar with VBA.

I have been searching a couple of days to solve this issue:
My goal is to create an Application in VBA which automatically logins to a Website and then retrieves certain info of several webpages (with the same layout). After this, the info needs to be written to excel. By watching several tutorials I have been able to write this piece of code. I think that my main problem is the fact that I cannot get the HTML code of the page which has loaded after login.

It also seems that the part with oBrowser.readystate = 3 is causing some problems.
If anyone could that a look at this, it would mean a lot .

Please Login or Register  to view this content.

[Arkadi]

Hi Tyson,

I'm not sure why you are first looping until the browser is interactive, and then looping again until it is ready.... is it really required? I took out the interactive loop and just made sure the page is loaded, then it seemed to work fine... let me know if this version below works for you? I modified the structure of the final loop a bit.

Please Login or Register  to view this content.

[AB33]

Nep, it is not going to work. The error trapping appears to make it work.
You need to remove all of them and see in which line the code errors.

It is also a good idea to declare all your variables.
a = the_element.name

what is a supposed to be?

It is difficult to suggest any solution, since the site has access rights.

[tyson_t]

I watched https://www.youtube.com/watch?v=qJPoeIZ0pWM as a guide to get the innertext of the page loaded. He just said it was necessary to have oBrowser.readystate = 3, but didn't really mention the reason why.

I've tried the code with Arkadi's modifications, but i'm still not able to get the innertext of the page loaded.
I'v made an account with e-mail: online12_8@hotmail.com and password: pass123. This should give you access to the site.

When I add the code below after Next input_element, I get an infinite loop, which probably suggest that the this causes always the same error.

Please Login or Register  to view this content.

Thanks for your quick responses!

[AB33]

I spent half an hour as I was unable to log-in and tearing my hair apart, only to find out there is a typo in your password

tbpassword
P is an upper case, not lower.
This gives you access to the site, and copies the dom doc in to A1-just to test it is working.

Please Login or Register  to view this content.

[tyson_t]

I've made just a little adjustment to get it to the next page. But i'm still getting the same innertext as the login page.

These are the used references just in case that it is wrong;
- Visual basic for Applications
- Microsoft Excel 15.0 Object Library
- OLE automation
- Microsoft Forms 2.0 Object Library
- Microsoft Office 15.0 Object Library
- Microsoft HTML Object Library

i'm using excel 2013 and Internet explorer 11

The altruistic force is great here, i'm already really thankful for this :p
Hope you still have some hair.

Please Login or Register  to view this content.

[Arkadi]

If your connection is slower then you may be getting the innertext too soon after clicking... try adding the loop after the click like this:

Please Login or Register  to view this content.

[AB33]

Arkadi has spotted an error on my last line.

Please Login or Register  to view this content.

Well done!Arkadi

[tyson_t]

Still the same... . Do you get a msgbox which is different from this one?
picture.jpg

[Arkadi]

Yes... I get the content of the page AFTER login

[Arkadi]

Have you tried using F8 to step through each line, and does the web page open and then login successfully? if you do that manually, do you get a different result?

[tyson_t]

I got the right result when I try to run it with f8 manually. But when i press play I get the msgbox of the login page. Maybe I should just try it on a different computer. Who knows.... :p

[Arkadi]

Sounds like the code is too fast for your internet... but strange with the extra loop for ie.readystate checking.... you could try adding

Please Login or Register  to view this content.

to wait 5 seconds AFTER clicking the button and before reading the innertext.

[tyson_t]

Thanks a lot! It is working