Daten aus Passwort-geschützten website, die mithilfe von VBA
Verwendung von Excel 2007 und VBA 6.5
Ich versuche zu automatisieren, Daten-Sammlung-Aufgabe, aber ich laufen in der "Laufzeitfehler 91 - "Objektvariable oder With-Blockvariable nicht Festgelegt." Ist dies ein Verweis-Problem oder hat es zu tun mit meinem Skript.
Dank.
Skript ist unten enthalten (Passwort und variable geschützt)
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
InformationsquelleAutor Alex Paras | 2012-05-08
Du musst angemeldet sein, um einen Kommentar abzugeben.
Diese Zeilen zu ändern
zu
Und versuchen Sie es erneut.
InformationsquelleAutor Siddharth Rout