Formular im Internet mit VBA ausfüllen (Dropdown)
29.12.2014 18:16:39
Christa
Ich bin ziemlich verzweifelt und wäre Euch wahnsinnig dankbar für eine wenig Hilfe.
Wir benötigen im Büro häufig die Adresse von Betreibungsämter und möchten daher das Formular im Internet automatisch ausfüllen. Das ist soweit auch kein Problem, ausser beim DropDown für die Ortschaft. Fülle ich das Formular von Hand aus, erscheinen die Ortschaften im DropDown, sobald ich die Postleitzahl ins Feld eingebe. Bei der Eingabe mit
.getelementbyid("postCode").Value = "XXXX"
klappt das leider nicht - das DropDown enthält keine Werte. Bis jetzt habe ich mir damit beholfen, sendkeys zu verwenden und damit im Feld für die Postleitzahl "Enter" zu klicken. Diese Lösung funktioniert aber leider nur teilweise.
Es geht um folgende Website:
https://www.e-service.admin.ch/eschkg/app/wizard/navigate.do
Im folgenden seht Ihr einen Ausschnitt aus dem Code mit einer Beispiel-Adresse
Public Sub Betreibungsamt()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://www.e-service.admin.ch/eschkg/cms/navigation/Betreibung/ _
99_index_html_de"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Document.ReadyState = "complete"
'Link finden und anklicken.
For i = 0 To IEApp.Document.Links.Length - 1
linktext = IEApp.Document.Links(i).innertext
If linktext = "Zuständiges Amt finden" Then
IEApp.Document.Links(i).Click
Exit For
End If
Next i
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
'Formular ausfüllen
.getelementbyid("street").Value = "Rappenstrasse"
.getelementbyid("number").Value = "38"
.getelementbyid("postCode").Value = "8307"
.getelementbyid("postCode").Select
End With
Application.SendKeys "{ENTER}", True
End Sub
Vielen Dank für Eure Hilfe
Anzeige