title: Data from password protected website using VBA
body: <p>using Excel 2007 and VBA 6.5</p>
  
  <p>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.</p>
  
  <p>Thanks.</p>
  
  <p>Script is included below (password and variable protected)</p>
  
  <pre><code>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&amp;pgreq=AVTotals&amp;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
  </code></pre>