Internetseite jeweils in neuem IE-Fenster



Excel-Version: 97SR2
nach unten

Betrifft: Internetseite jeweils in neuem IE-Fenster
von: WalterDa
Geschrieben am: 07.05.2002 - 05:52:12

Ich lasse übner ein VBA-Makro -abhängig von Inhalten einer Tabelle usw.- bestinnte Internetseiten im IE öffnen (siehe unten). Leider schaffe ich es nur, dass die Seiten immer im gleichen Fesnter des IE geöffnet werden. Welchen Befehl muß ich verwenden, daß für jede Seite eine neue Insatnz des IE geöffnet wird, d.h. jede Seite in einem eigenen Fenster angezeigt wird?

Walter


Sub Internetseiten()
Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    laR = Cells(Rows.Count, 2).End(xlUp).Row
    ii = 0
    For i = 1 To laR
        If Cells(i, 1) <> "x" Then GoTo weiter
        ii = ii + 1
    WKN = Cells(i, 5)
    Seite = "http://optionsscheine.onvista.de/figures.html?WKN=" & WKN & "&PRINT=1"
    objIE.Navigate Seite
        Do While objIE.Busy
        Loop
        Do While objIE.Document.ReadyState <> "complete"
        Loop
weiter:
    Next i
End Sub


nach oben   nach unten

Re: Internetseite jeweils in neuem IE-Fenster
von: Hans W. Herber
Geschrieben am: 07.05.2002 - 06:07:47

Hallo Walter,

nimm die ersten beiden Code-Zeilen in die Schleife mit rein (unterhalb WKN =)

hans


nach oben   nach unten

Re: Internetseite jeweils in neuem IE-Fenster
von: WalterDa
Geschrieben am: 07.05.2002 - 08:05:19

Hans,

Danke für den Tip !

Walter


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Internetseite jeweils in neuem IE-Fenster"