數據使用VBA

Question

使用Excel 2007和VBA 6.5

我想自動數據收集任務，但我一直運行到「運行時錯誤91 - 」對象變量或帶塊變量未集「。這是一個參考的問題或者它與我的腳本來完成。

感謝。

腳本包含如下（密碼和可變保護）

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 

Answer 1

這些線路

.document.all.Item("User Name").Value = "UserName" 
    .document.all.Item("Password").Value = "Password" 

更改爲

.document.all.Item("loginUserName").Value = "UserName" 
    .document.all.Item("loginUserPassword").Value = "Password" 

，然後再試一次。