MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.07.2018, 21:26   #1
ms-office-nutzer
MOF User
MOF User
Standard VBA - Internetadressen aus mehreren bereits geöffneten Tabs mit VBA auslesen

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
ms-office-nutzer ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2018, 23:33   #2
Muller2
MOF User
MOF User
Standard

Hallo,

Zitat:

Firefox, Chrome,...sollte eigentlich egal sein welcher es ist

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...

Selenium

Gruß, Muller2

Geändert von Muller2 (12.07.2018 um 23:35 Uhr).
Muller2 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.07.2018, 12:56   #3
EarlFred
MOF Guru
MOF Guru
Standard

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
Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 6 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,044% per 26.07.2018) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:33 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.