Browseraufruf (IE) aus Excel mit VBA

Private Sub cmdRegierungsb_Click()

    DestatisAufrufen "http://www.destatis.de/gv/suche_gv2000.htm", txtBHwohnort

    'oder ein beliebiger Ort, z. B. "Hamburg"
End Sub

 

Private Sub DestatisAufrufen(strURL As String, strOrt As String)

'IE als Objekt festlegen, URL aufrufen, Ort vorschlagen
'siehe auch: Excel soll mit sendkeys an .html etwas senden
Dim objBrow As Object 'Browser (NUR für IE möglich?!)
   
    Set objBrow = CreateObject("InternetExplorer.Application")
   
    With objBrow
        .Visible = True                                 'sichtbar
        .Navigate (strURL)                              'Seite aufrufen
   
        Do While .Busy
        Loop                                            'warten...
        Do While .Document.ReadyState <> "complete"
        Loop                                            '... bis Seite vollständig geladen
       
        SendKeys strOrt, True                           'strOrt im Suchfeld eingeben
        SendKeys "{TAB}{TAB}", True                     'entspricht dem zweimaligen Drücken der Tabulatortaste
        'Es SOLLTE der gesuchte Ort eingetragen und die Schaltfläche 'Gemeinde suchen'
        'aktiviert sein. Der User bestätigt einfach per [Enter].
    End With

    Set objBrow = Nothing                               'Speicherplatz freigeben
    
End Sub