Hello AllSub Get_webpage()
Rows("6:251").Select
Selection.Delete Shift:=xlUp
'Copy web page to sheet1
On Error GoTo error
Application.ScreenUpdating = False
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "https://xxxx.boris-software.com/Auth/App.aspx?list=GeneralWork&mitId=1013&"""
Do Until .ReadyState = 4
DoEvents
Loop
.document.all.Item("Login1_UserName").Value = "xxx"
.document.all.Item("Login1_Password").Value = "xxx"
.document.forms(0).submit
End With
With Sheets("Sheet1").QueryTables.Add(Connection:= _
"URL;https://xxxx.boris-software.com/Auth/App.aspx?list=GeneralWork&mitId=1013&", _
Destination:=Sheets("Sheet1").Range("A10"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
error:
Application.ScreenUpdating = True
Range("B5").Select
End Sub
im looking to get the data from a password protected web site, i know the user name and password but i still can't get it to work
it downloading the password page so its conecting to the website.
ive looked up the source page and found the username tag and im sure thats correct, any ideas why it won't get pass the password?
Thank you