Internet Seiten per VBA öffnen
04.01.2018 21:10:06
Maria
ich habe folgendes Problem, ich möchte eine Auswahl von Begriffen automatisch per VBA im internet explorer öffnen.
Ich habe mich an zwei codes aus dem Internet versucht aber bekomme es einfach nicht hin.
Besser wäre es noch wenn der Code die Komplette Liste auf der Website durchgeht und mir die _ Seiten öffnet wo mindestens ein Eintrag vorhanden ist, dies ist aber glaube ich zu kompliziert oder?
Sub BoersenZeitung()
Dim objIE As Object
Set objIE = CreateObject("Internetexplorer.Application")
Dim Unternehmen As String
Set Unternehmen = Selection
With objIE
.Visible = True
.Navigate2 "https://www.boersen-zeitung.de/index.php?li=310&subm=suche&bzpro_suche= _
Unternehmen=1%20Woche"
Do While .Busy And .readyState 4
DoEvents
Loop
End With
'Set objIE = Nothing
End Sub
Ich habe gedacht ich könnte in dem Link einfach eine Variable, die ich Unternehmen genannt habe, einfügen und diese als Selection deklarieren.
Das Foto ist ein Beispiel, da kommen aber noch mehr Unternehmen zu und es wird auch hin und wieder mal eines entfernt oder hinzugefügt
Vielen Lieben Dank und ganz liebe Grüße
Maria