[pubsfried]

Mit folgendem Code-Schnipsel suche ich von Excel2007-VBA aus nach jpg-Popup-Links auf einer Intranet-Seite und öffne diese

Set objCollection = IE.document.getElementsByTagName("a")
     i = 0
     While i < objCollection.Length ' alle Bilder-Links öffnen
        Debug.Print objCollection(i).innertext
        If InStr(1, objCollection(i).innertext, ".jpg", vbTextCompare) Then
           objCollection(i).Click

        Do While IE.Busy
            Application.Wait DateAdd("s", 1, Now) ' wait 1 sec.
        Loop
        
        End If
        i = i + 1
    Wend

Nun möchte ich aber nicht objCollection(i).Click ausführen, was den Link in einem neuen FENSTER öffnet, sondern den Link in einem neuen TAB öffnen. Wie lautet der Code hierfür ?

(Ich weiss, dass man das Verhalten im IE umstellen kann, es geht aber um mehrere Dutzend Arbeitsplätze/Anwender und das Erhalten der Company-weiten Voreinstellungen im IE.)

Danke !

[Murdoc]

Was willst du denn generell damit bezwecken? Vielleicht bringt das etwas Licht ins Dunkel.

[pubsfried]

Zitat (Murdoc: 08. März 2012 - 22:32)

Was willst du denn generell damit bezwecken? Vielleicht bringt das etwas Licht ins Dunkel.

Auf der Intranet-Seite sind jpg-Bilder verlinkt. Beim (manuellen) Anklicken werden diese in einem neuen IE-Fenster geöffnet. (dies erfüllt der Programmschnipsel oben automatisiert). Man kann die Links jedoch auch (manuell) mit der rechten Maustaste anklicken und diese dann in einem neuen Tab (anstatt in einem neuen Fenster) öffnen. Aber wie mach man das automatisiert von VBA aus ?

Eigentlich müsste doch nur das .Click in "objCollection(i).Click" durch irgendwas anderes ersetzt werden. hierzu kann ich aber im Web nichts finden.
Irgendeine Idee ?

[Murdoc]

Ich habe folgenden Code in einem anderen Forum gefunden

Sub ie_2_tab()
  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.Visible = True
  objIE.Navigate2 "http://www.office-loesung.de/viewforum10_0_0.php"
  While objIE.ReadyState < 4
    DoEvents
  Wend
  objIE.Navigate2 "http://www.office-loesung.de/ftopic417308_0_0_asc.php", 2048
  objIE.Navigate2 "http://www.office-loesung.de/viewprofile59398.php", 2048
  Set objIE = Nothing
End Sub

Eventuell hilft der dir weiter.

[pubsfried]

hmm, wenn ich die Links auslesen kann statt sie nur zu klicken könnte das gehen.
Ich teste mal am Mo. im Büro.
Erstmal DANKE und Schönes Wochenende !