Office: Internetadressen aus mehreren bereits geöffneten Tabs mit VBA auslesen

ms-office-nutzer · 10. Juli 2018

Hallo zusammen,

folgende Situation:
Ich habe in meinen Browser (Firefox, Chrome,...sollte eigentlich egal sein welcher es ist) mehrere Tabs geöffnet und will von der jeweiligen Seite entsprechende Werte (mit externe Daten aus dem Web abrufen) mittels VBA in Excel übertragen. Für einen einzelnen Link habe ich bereits ein UserForm wo ich den Link einfüge (in ein Textfeld) und entsprechende Daten werden von der jeweiligen Internetseite in meine Excel-Tabelle übertragen.

Problem:
Wenn ich jetzt mehrere Tabs offen habe, muss ich das für jede Internetseite einzeln machen.

Gibt es irgendeine Möglichkeit die geöffneten Tabs von VBA-Excel erkennen zu lassen und dessen Internetadresse auszulesen? Dann kann ich mir das händisch einzelne kopieren sparen.

Viele Grüße

:)

Muller2 · 12. Juli 2018

Hallo,

Firefox, Chrome,...sollte eigentlich egal sein welcher es ist
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und das ist leider nicht der Fall, wenn überhaupt geht's einfach per COM nur im IE, da hatt ich entweder hier oder bei Herber neulich ne Lösung gesehen, ich glaub von Anton, mit Firefox bräuchtest Du schon ein AddIn, das könnte auch mit Chrome gehen, ob Du damit an die Tabs rankommst kann ich Dir allerdings auch nicht sagen...*rolleyes.gif*

Selenium

Gruß, Muller2

EarlFred · 13. Juli 2018

Hallo ,

aus meinem Codearchiv (Quelle der Grundidee unbekannt), geändert und angepasst:
Code:

Option Explicit
Sub start()
Dim varWindows As Variant, i As Long
varWindows = funcFindIEWindows(vbNullString)
For i = LBound(varWindows, 1) To UBound(varWindows, 1)
MsgBox varWindows(i).LocationUrl
Next i
End Sub

Function funcFindIEWindows(Optional strSucheInURL As String) As Variant()

Dim objeShWs As Object, objeShW As Object
Dim arrWindows() As Variant
Dim i As Long

Set objeShWs = CreateObject("Shell.Application").Windows
For Each objeShW In objeShWs
If TypeName(objeShW.Document) = "HTMLDocument" Then
If strSucheInURL = "" Or InStr(objeShW.LocationUrl, strSucheInURL) Then
ReDim Preserve arrWindows(0 To i)
Set arrWindows(i) = objeShW
i = i + 1
End If
End If
Next objeShW
funcFindIEWindows = arrWindows
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Office: Internetadressen aus mehreren bereits geöffneten Tabs mit VBA auslesen

Internetadressen aus mehreren bereits geöffneten Tabs mit VBA auslesen

Internetadressen aus mehreren bereits geöffneten Tabs mit VBA auslesen

Internetadressen aus mehreren bereits geöffneten Tabs mit VBA auslesen - Similar Threads - Internetadressen mehreren geöffneten

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Arbeitszeiten aus mehreren Tabellenblätter

Ein Makro für mehrere Register

Formatierungsprobleme mit mehreren Seiten im Format Gegenüberliegende Seiten

VBA - gute Internetadresse zum Erlernen von VBA ?

Aktivierung der Internetadresse

Wie Internetadressen automatisch trennen ohne Trennzeichen?