HTML Page mit Javascript via Excel lesen/schreiben

Sub NeOn_Login() Set urllogin = Worksheets("Data").Range("C3") Set user = Worksheets("Data").Range("C4") Set Password = Worksheets("Data").Range("C5") Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate (urllogin) Do If IE.ReadyState = 4 Then IE.Visible = True Exit Do Else DoEvents End If Loop IE.Document.Forms(0).all("user").Value = user IE.Document.Forms(0).all("pass").Value = Password IE.Document.Forms(0).submit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'zugriff auf PLZ, setzen IE.Document.getElementById("id_PLZ_STRASSE").Value = 12345 'auslesen in Variabel PLZ PLZ = IE.Document.getElementById("id_PLZ_STRASSE").Value 'für die Länderkennung zum Setzen IE.Document.getElementById("id_ISO_LAENDERKENNUNG").selectedIndex = 2 '2 ist dabei der INdex in der LIste, die müsste aber bei 0 losgehen, bin mir aber grad nicht _ sicher 'die 2 ist dann der 3te Wert

Function NeOn_Login() Set URL = Worksheets("Data").Range("C3") Set user = Worksheets("Data").Range("C4") Set Password = Worksheets("Data").Range("C5") Dim PLZ As Integer Dim id_PLZ_STRASSE As Integer Dim ie As Object Set ie = CreateObject("InternetExplorer.application") ie.Visible = True ie.Navigate (URL) Do If ie.ReadyState = 4 Then ie.Visible = True Exit Do Else DoEvents End If Loop ie.Document.Forms(0).all("user").Value = user ie.Document.Forms(0).all("pass").Value = Password ie.Document.Forms(0).submit 'zugriff auf PLZ, setzen ie.Document.getElementById("id_PLZ_STRASSE").Value = PLZ 'auslesen in Variabel PLZ 'PLZ = ie.Document.getElementById("id_PLZ_STRASSE").Value Range("A1").Value = PLZ End Function

Moin!
Also habe nochmal geschaut und die Datei nachgebaut. Bei mir klappt es. Evtl. lag es daran, dass deine Seite nach dem Anmelden noch nicht fertig geladen war. Zudem war PLZ nur eine Variable, welche du noch mit einem Wert belegen musst. Hier mal der Code angepasst. Jetzt sollte er warten bis die Seite nach der Anmeldung geladen ist. Zudem gibt er (wenn es klappt) die Postleitzahl als Nachricht aus und schreibt danach 99999 rein. Am Besten das Ganze mal schrittweise von Hand durchgehen. Also in das Makro klicken und mit der F8 Tasten Zeile für Zeile durchgehen. Die Variable id_PLZ_Straße brauchst du nicht deklarieren. Das ist der Name im Quellcode der Seite. Und PLZ war nur ein Beispiel für die Postleitzahl. Das mal als Variante lassen. Glaube nämlich, dass die Rückgabe ein String ist. Das könnte sonst zu einem Fehler führen.

Function NeOn_Login()
Set URL = Worksheets("Data").Range("C3")
Set user = Worksheets("Data").Range("C4")
Set Password = Worksheets("Data").Range("C5")
Dim PLZ
Dim ie As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate (URL)
Do
If ie.ReadyState = 4 Then
ie.Visible = True
Exit Do
Else
DoEvents
End If
Loop
ie.Document.Forms(0).all("user").Value = user
ie.Document.Forms(0).all("pass").Value = Password
ie.Document.Forms(0).submit
Do
If ie.ReadyState = 4 Then
ie.Visible = True
Exit Do
Else
DoEvents
End If
Loop
'so liest man ihn aus
MsgBox ie.Document.getElementById("id_PLZ_STRASSE").Value
'so schreibt man neu
ie.Document.getElementById("id_PLZ_STRASSE").Value = 99999
'auslesen in Variabel PLZ
'PLZ = ie.Document.getElementById("id_PLZ_STRASSE").Value
'Range("A1").Value = PLZ
End Function

Einfach mal probieren und keine Angst, so schwer ist das nicht.
VG

Sub NeOn_Login() Set URL = Worksheets("Data").Range("C3") Set user = Worksheets("Data").Range("C4") Set Password = Worksheets("Data").Range("C5") Set ie = CreateObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}") ie.Visible = True ie.Navigate (URL) Do If ie.ReadyState = 4 Then ie.Visible = True Exit Do Else DoEvents End If Loop ie.Document.Forms(0).all("user").Value = user ie.Document.Forms(0).all("pass").Value = Password ie.Document.Forms(0).submit Stop Do If ie.ReadyState = 4 Then ie.Visible = True Exit Do Else DoEvents End If Loop ie.Navigate ("https://www.nennung-online.de/mein-konto/personendaten") Stop Do If ie.ReadyState = 4 Then ie.Visible = True Exit Do Else DoEvents End If Loop 'so liest man ihn aus MsgBox ie.Document.getElementById("id_PLZ_STRASSE").Value 'so schreibt man neu ie.Document.getElementById("id_PLZ_STRASSE").Value = 99999 'auslesen in Variabel PLZ 'PLZ = ie.Document.getElementById("id_PLZ_STRASSE").Value 'Range("A1").Value = PLZ End Sub

Moin!
Also ich habe ab und an das Problem, dass die Seite zwar geladen ist und den readystate setzt aber trotzdem noch nicht ganz da ist. Demzufolge bricht er Code dann immer ab. Ist zwar unschön aber setzte dann immer 2 bis 3 der do loops untereinander.
Würde eigentlich auch so reichen (ungetestet - habe hier grad keinen IE):
While ie.ReadyState 4 : DoEvents : Wend
Hatte aber auch eine Seite, die manchmal (wenn viele zugriffen haben) richtig lange war. Dann habe ich den Code manchmal hiermit https://msdn.microsoft.com/de-de/vba/excel-vba/articles/application-wait-method-excel waretn lassen. 3 bis 4 Sekunden haben da gereicht.
Ist jetzt nicht schön aber ersetzt zumindest dein STOP (damit habe ich noch nie gearbeitet und hier zum ersten Mal gesehen).
VG

Sub NeOn_Login() Set URL = Worksheets("Data").Range("C3") Set user = Worksheets("Data").Range("C4") Set Password = Worksheets("Data").Range("C5") Set ie = CreateObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}") ie.Visible = True ie.Navigate (URL) Do If ie.ReadyState = 4 Then ie.Visible = True Exit Do Else DoEvents End If Loop ie.Document.Forms(0).all("user").Value = user ie.Document.Forms(0).all("pass").Value = Password ie.Document.Forms(0).submit newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 2 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime ie.Navigate ("https://www.nennung-online.de/mein-konto/personendaten") Do If ie.ReadyState = 4 Then ie.Visible = True Exit Do Else DoEvents End If Loop 'so liest man ihn aus 'ie.Document.getElementById("id_PLZ_STRASSE").Value 'so schreibt man neu 'ie.Document.getElementById("id_PLZ_STRASSE").Value = 99999 'auslesen in Variabel PLZ PLZ = ie.Document.getElementById("id_PLZ_STRASSE").Value Range("A1").Value = PLZ End Sub

Beliebteste Forumthreads (12 Monate)

HTML Page mit Javascript via Excel lesen/schreiben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread