|
Hallo Zusammen
Ich brauche eure Hilfe!
Vorne weg, ich bin recht neu in VBA.
Ich möchte in Excel in Zelle A1 ein firmen Namen eingeben und möchte in B1 eine kurze Beschreibung von dieser Firma bekommen von der Website: http://www.findthecompany.com/
Wenn ich im Search Feld einen Namen eingebe kommt eine Liste mit verschiedene Links (Bsp. Strabag: Strabag SE, Strabag AG...) (bis da bin ich gekommen, siehe code unten).
Ab da weiß ich nicht mehr weiter. Hier sollte der erste Link angeklickt werden, und dann unten bei "Overview" die 2-3 Zeilen text angegeben werden.
Vielen Dank im Voraus
Sub Launchfindthecompany()
Dim newsite2 As Object
Set newsite2 = CreateObject("InternetExplorer.application")
newsite2.Visible = True
newsite2.Navigate _
"http://listings.findthecompany.com/?launch_filters=%5B%7B%22field%22%3A%22company_name%22%2C%22operator%22%3A%22LIKE%22%2C%22value%22%3A%22" & Range("A1").Value & "%22%7D%5D"
End Sub |