Data from password protected website using VBA
15,197
Change these lines
.document.all.Item("User Name").Value = "UserName"
.document.all.Item("Password").Value = "Password"
to
.document.all.Item("loginUserName").Value = "UserName"
.document.all.Item("loginUserPassword").Value = "Password"
And try again.
Author by
Alex Paras
Updated on June 04, 2022Comments
-
Alex Paras almost 2 years
using Excel 2007 and VBA 6.5
I'm trying to automate a data collection task, however i keep running into the "Runtime Error 91 - "Object Variable or With Block Variable not Set." Is this a reference issue or does it have to do with my script.
Thanks.
Script is included below (password and variable protected)
Sub Basic_Web_Query() Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate "https://www.urbics.com/Login.php" Do Until .ReadyState = 4 DoEvents Loop .document.all.Item("User Name").Value = "UserName" .document.all.Item("Password").Value = "Password" .document.forms(0).submit End With With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.urbics.com/Urbics.php?hs=a97cd706q9948q11e1qbbacq00259002436c&pgreq=AVTotals&aid=4517", Destination:=Range("$B$4")) .Name = "q?s=goog_2" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "1,2" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub