Einzelnen Beitrag anzeigen
Alt 13.07.2018, 11: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