Adressen aus Websuche ins Excel übertragen
31.01.2015 22:43:45
Tom
ich suche eine Lösung um Adressen aus dem Web in eine Tabelle zu kriegen. Mit folgendem Code hole ich mir die entsprechende Seite per Button. nun will ich durch einen zweiten Button die angezeigte Adresse in die Tabelle bringen. Kennt sich da jemand aus ?
Gruss, Tom
Sub Twixtel()
Dim IEAdd As String
Dim WebBrowser1 As Object
Dim i As Integer, AktValue As String
IEAdd = "http://www.directories.ch/weisseseiten/base.aspx?language=de" & _
"&do=search&origin=dir&searchtype=adr_simple&page=1" & _
"&name=meier%20max%20brauerei"
Set WebBrowser1 = CreateObject("InternetExplorer.Application")
WebBrowser1.Visible = True ' zum testen anzeigen
WebBrowser1.Navigate IEAdd
'While WebBrowser1.ReadyState 4
'Warten, bis Seite geladen ist
'DoEvents
'Wend
End Sub
Anzeige