I am trying - in vain at the moment - to scrape data with VBA assistance from a password protected site to which I am a member and have an authorised username and password - and import into Excel 2019. My VBA currently opens a new IE page, goes to the website concerned, enters username and password and then I stumble. I have tried all manner of attempts as per below but have been frustrated at my lack of success.
b>Login</b> <input type='textbox' name='login' size=8> <b>Pass</b><input type='password' name='password' size=8>
<input class='weebutton' type='submit' value='GO!'></form></td><td valign=top class=small2><a href='lostdetails.php'>Forgot?</a><br><a href='subscribe.php'>Free Trial</a></td></tr></table>
Above is an extract from the website I am trying to enter which contains the details I need to get to the next stage.
I get as far as :
.Document.all.Item("Login").Value = "*************"
.Document.all.Item("Password").Value = "********************"
But then get stuck with:
.Document.forms (0).submit.Click()
.Document.forms(0).submit.Value = "GO!"
.Document.forms(0).submit.Value="GO
.Document.forms(0).submit.Value="GO" Click
.Document.forms(0).submit.Value="GO"Click()
.Document.all.Item("Submit").Value.Click()
.Document.all.Item("Submit").Value = "GO!"
.Document.all.Item("Submit").Click()
ad infinitum, without success. My VBA knowledge is limited so be gentle and please help a frustrated 64 year old!
b>Login</b> <input type='textbox' name='login' size=8> <b>Pass</b><input type='password' name='password' size=8>
<input class='weebutton' type='submit' value='GO!'></form></td><td valign=top class=small2><a href='lostdetails.php'>Forgot?</a><br><a href='subscribe.php'>Free Trial</a></td></tr></table>
Above is an extract from the website I am trying to enter which contains the details I need to get to the next stage.
I get as far as :
.Document.all.Item("Login").Value = "*************"
.Document.all.Item("Password").Value = "********************"
But then get stuck with:
.Document.forms (0).submit.Click()
.Document.forms(0).submit.Value = "GO!"
.Document.forms(0).submit.Value="GO
.Document.forms(0).submit.Value="GO" Click
.Document.forms(0).submit.Value="GO"Click()
.Document.all.Item("Submit").Value.Click()
.Document.all.Item("Submit").Value = "GO!"
.Document.all.Item("Submit").Click()
ad infinitum, without success. My VBA knowledge is limited so be gentle and please help a frustrated 64 year old!