URL aus Exploreradresszeile in Exceltabelle kopieren

Question

Hallo

Ich habe z.B. mit dem OTTO Versandhaus ein Partnerprogramm abgeschlossen, womit ich Provision bei Verkauf erhalte. Die dafür notwendige URL erhielt ich von OTTO und habe diese in eine Exceltabelle eingtragen. Wenn ich diesen Hyperlink per Mausklick öffne, öffnet sich mein Browser. Die dort geöffnete URL in der Adresszeile des Browsers soll automatisch in eine Spalte neben meiner Partner URL in die Exceltabelle eingetragen werden.

Wer hat eine Idee. Danke für Eure Hilfe!!

Joerg

Answer 1

Keine die schön elegant ist.

Excel kann schlicht & simpel weder die aufgerufene Seite noch die Adresszeile erreichen. Allenfalls eine Fernsteuerung von Outlook, über das du den Hyperlink empfängst, wäre mir entfernt vorstellbar.

Persönlich würde ich irgendwas (ggf. die ganze Mail oder einfacher die Adresszeile) kopieren und dann in XL ein Makro starten das die Zwischenablage abgreift und ordentlich ablegt. Das alles kann leicht organisiert werden.

Eric March

Answer 2

@erich marc -> blub ?

man kann mit vbscript die aktuelle URL aus dem IE auslesen, beispiel

Dim oWindowList
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
MsgBox "Internet Explorer gefunden. URL:= '" & oWindow.LocationURL & "'"
End If
Next
End If

Quelle: http://www.go-windows.de/forum/programmierung-und-scripting/aktuell-im-browser-geoffnete-url-auslesen/

musste halt in ein excel macro umbauen

LG

Answer 3

Wenn mit Tick das Fenster anders heißt?
Wenn nicht der IE benutzt wird?

Blub.

Es ging wenn auch um VBA nicht VBS - tut der Code auch da?
(Blub…)

Eric March