Webabfrage mit Login
Richard
ich möchte Wertpapierkurse von einer Internetseite welche nur über
Login und Paßwort erreichbar ist immer wieder abfragen.
Geht das indem ich eine Abfrage aktualisiere (glaube ich nciht, da ja
jedesmal das Login durchgeführt werden muss!).
Gibt es die Möglichkeit die Checkbox "remember_user" beim Aufruf zu
deaktivieren? Ansonsten logt sich die Seite über die Cookies
automatisch beim nächstenmal ein.
'<input type="checkbox" name="remember_user" value="true"
class="Blank" CHECKED> <span class="navigation">Immer eingeloggt
bleiben (verwendet Cookies)</span>
Mit welchem Befehl schließe ich den Browser nach getaner Arbeit
wieder?
Mit unterem Code kann ich die Seite aufrufen und die Daten nach Excel
schreiben.
Gibt es eine schlauere Lösung für mein Vorhaben???
Sub Login_Teletrader()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True
appIE.Navigate "http://www.teletrader.com/_user/login.asp?
access=5&redirect=%2F%5Fportfolio%2Fdepot%2Easp&minisite="
Do While appIE.Busy
Loop
appIE.Document.all("userName").innerText = "xxxxxxx"
appIE.Document.all("password").innerText = "xxxxxxx"
appIE.Document.all.Login.Submit
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.teletrader.com/_portfolio/depot.asp?
minisite=", Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
'Fehlerbehandlung
On Error Resume Next
.Refresh BackgroundQuery:=False
'Datenberbindung dauert zu lange
If Err.Number = 1004 Then
MsgBox "Es konnten keine Daten abgerufen werden!", 48,
"Zeitlimit überschritten!"
Err.Number = 0
End If
End With
End Sub
Liebe Grüße - Richard Excel 2003