IE URL auslesen

[IYTI]

Hi,

ich würde gerne von einem vorhandenen Internetexplorer Fenster die URL auslesen.

Ich habe auch schon bei google einige treffer bekommen, jedoch erstelle ich das Makro in einer Visual Basic und Excel-ähnlichen Umgebung und viele Commands werden dort nicht erkannt.

'Beispiel : Aus einem offenen IE die URL und die Titelzeile auslesen.

'Hinweis  : Zum Testen ist es erforderlich ein IE Fenster zu oeffnen.

'           Ist kein IE Fenster offen wird der Run-time error '282'

'           No foreign application responded to a DDE initiate

'           ausgelöst.

'

Private Sub Command1_Click()

    With Text1

        .LinkTopic = "IExplore|www_GetWindowInfo"

        .LinkItem = &HFFFFFFFF

        .LinkMode = 2

        .LinkRequest

    End With

End Sub

Dieser Quelltext wäre eigentlich genau das, was ich suche, jedoch arbeitete der Autor mit einer Userform was ich nicht tue und bei mir will das nicht so recht...

Hat jemand eine kurze aber funktionelle Lösung?

[lupo49]

Bitte mal hier schauen: ActiveVB - VB 5/6-Tipp 0262: Aktuelle Seitenadresse des Netscapes und des IEs mittels DDE

[IYTI]

ja, du hast den Quelltext gefunden, den ich auch gefunden habe. Zugegegeben er ist noch verschachtelter und unübersichtlicher für mich :-)

Gibt es da nicht nen simplen 10 Zeiler OHNE Userformen die man nachträglich erstmal anlegen muss, um prüfen zu können ob das Programm überhaupt rennt?

Sry, bin Anfänger

Bearbeitet 14. Oktober 2009 von IYTI

[Eratum]

Hab grad mal kurz gegooglt (vlt kann man's ja mal selber gebrauchen) ^^

 

Set oWindowList = CreateObject("Shell.Application").Windows

If oWindowList.Count > 0 Then

  Dim oWindow 

  For Each oWindow In oWindowList

    If UCase(Right(oWindow.FullName, 12)) = "IEXPLORE.EXE" Then

      wscript.echo oWindow.LocationURL

    End If

  Next

End If

[IYTI]

Ich habe den Fehler 424, Object required bei dem Source Code. Sind noch weitere Einstellung nötig? Leider wird mir keine STelle angezeigt, andem das Problem auftritt...

Habe den Excel Visual Basic Editor

[Eratum]

Das kann ich dir leider nicht sooo genau beantworten. Der Codeschnipsel ist vbs und funktioniert, wenn man ihn alleinstehend ausführt.

Eine Anpassung für VBA als Excelmakro müsstest du sicher noch vornehmen. Da kenn' ich mich allerdings nicht aus...

Edit:

Hab gerad mal flott geschaut. Es liegt am "wscript.echo" (also der Ausgabe), du müsstest das ganze noch so umschreiben, dass die Ausgabe in einer Zelle landet oder wie du's halt haben willst...

Bearbeitet 16. Oktober 2009 von Eratum

[IYTI]

Es ist ein Traum, danke dir, so habe ich mir das vorgestellt :-)