ich muss mich bei einer Internetseite mit Benutzer und Passwort einloggen.
nach dem einloggen, wollte ich gerne die Seite/n nach Excel importieren.
das Problem ist, er loggt sich nicht ein...
bei den ersten Schritten (FETT) loggt er sich auf der Seite ein... funktioniert
aber beim nächsten Schritt... das "QueryTables" da kommt er nicht drauf...
wenn ich manuell eine neue "Au dem Web" Verbindung mach, mich manuell einlogg... dann funktionert das Makro... ich will mich aber nicht manuell anmelden!!!
Sub Login()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = False
appIE.Navigate "https://..../login"
Do While appIE.Busy
Loop
appIE.Document.all("user").innerText = "BENUTZER"
appIE.Document.all("password").innerText = "PASSWORT"
appIE.Document.all.Update.Click
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://.../erfassungen?offset=0&max=15" _
, Destination:=Range("$A$1"))
.Name = "S1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingRTF
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ich hoffe Ihr habt eine Löschung für mich...Danke
Timonski