Webabfrage - Auf Basis Zelleingaben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Stefan,
das geht nur mit VBA. Mit folgendem Code wird schon einmal die richtige Internetseite geöffnet, wenn du ein Datum in eine Zelle schreibst:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target) Then Exit Sub
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://www.xe.com/ict/?basecur=PLN&historical=true&month=" & Month(Target) & "& _
day=" & Day(Target) & "&year=" & Year(Target) & "&sort_by=code&image.x=33&image.y=15"
Do While IEApp.Busy
Loop
Do While IEApp.document.readyState  "complete"
Loop
'Hier muss die Auswertung der HTML-Seite erfolgen
Debug.Print IEApp.document.body.outerHTML
'IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub

Die Webabfrage kann selbstverständlich auch ohne Anzeige des Browsers (mit IEApp.Visible = False) erfolgen, dann solltest du aber den Strich vor "IEApp.Quit" entfernen, damit der Browser auch wieder geschlossen wird.
Mit IEApp.document.body.innerHTML bzw. IEApp.document.body.outerHTML kann der Seiteninhalt ausgewertet werden, um den richtigen Wert zu finden und in deine Zelle zu schreiben. Da ich aber nicht weiß welcher Wert genau ausgelesen werden (konnte 28.02 am 31.12.2010 nicht finden), konnte ich das jetzt nicht für dich machen.
Viele Grüße
Martin

Hallo Martin,
... upps - Danke für die Info. Das habe ich nicht gesehen !
Schade eigentlich, denn die Seite ist eigentlich PERFEKT !
Aber ich bin auf der Suche gewesen ... und habe was gefunden
z.B. (der Download ist bei beiden Seiten legal ! ;)
http://www.onvista.de/devisen/kursliste.html?ID_CURRENCY_FROM=EUR&ID_CURRENCY_TO=PLN&RANGE=12M
Die Seite ist insofern gut, dass der letzte Parameter noch erhöht werden kann auf z.B. 48M = 48 Monate
und man erhält für JEDEN Tag die Kurse !
http://de.exchange-rates.org/history/PLN/EUR/T
Auch sehr gut, aber nur 1/2 Jahr rückwirkende Währungskurse
Bei beiden Seiten muss man dann kein Datum bei der Webabfrage erfassen,
sondern nur die Währungskürzel
Ist ersten Falll ...FROM_EUR&ID_CURRENCY_TO=PLN&RANGE=...
beim zweiten Fall ../history/PLN/EUR/T
Freu mich auf einen Tip von Dir
und Danke nochmals, dass du bei der anderen Seite die Terms richtig gelesen hast !
Besten Gruß und
Stef@n

' usw. IEApp.Visible = True IEApp.Navigate "http://www.xe.com/ict/?basecur=PLN&historical=true" & _ "&month=" & Month(Target) & "& day=" & Day(Target) & "&year=" & _ Year(Target) & "&sort_by=code&image.x=33&image.y=15" Do While IEApp.Busy ' usw.

Beliebteste Forumthreads (12 Monate)

Webabfrage - Auf Basis Zelleingaben

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread