Formular im Internet ausfüllen
24.09.2015 11:50:57
Miramis
Wir benötigen ein Makro, das die Adresse des jeweils zuständigen Grundbuchamtes ermittelt. Das hat ein Jahr funktioniert und nun geht es seit ein paar Wochen aus unerfindlichen Gründen nicht mehr.
Problem: Nachdem ich das Formular ausgefüllt und abgeschickt habe, müssen Informationen aus dem HTML-Quellcode der neuen Seite herausgelesen werden. Aber ich erhalte immer nur den Quellcode der ursprünglichen Seite (vor dem Ausfüllen des Formulars). Wahrscheinlich wartet das Makro nicht, bis die Seite wirklich geladen ist, aber mir ist nicht klar warum.
Vielen Dank für Eure Hilfe! Bin am Verzweifeln.
Hier ein Minimalbeispiel dazu:
Option Explicit
Sub Grundbuchamt()
Dim IEApp As Object
Dim Ort, htmlIn As String
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://www.zbgr.ch/deu/gru_chh.php"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Document.ReadyState = "complete"
Ort = "Effretikon"
IEApp.Document.forms("Grundbuchamt").Elements("Begriff").Value = Ort
IEApp.Document.forms("Grundbuchamt").Elements("Submit").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Document.ReadyState = "complete"
htmlIn = IEApp.Document.body.innerhtml
Debug.Print htmlIn
End Sub
Anzeige