Office: (Office 2013) Goldkurs in Excel einlesen

eddie · 7. April 2019

Hallo
ich habe endlich eine Webseite gefunden, bei der man die historischen Goldkurse als csv-Datei downloaden kann.

Die URL lautet
https://stooq.com/q/d/l/?s=xaueur&d1...2=20190409&i=d

Wenn man diese ausführt wird sofort ein Download der CSV Datei gestartet.
Soweit so gut.
Ich wollte aber jetzt den Download automatisieren und bekomme es einfach nicht hin.

Vielleicht kann mir jemand weiterhelfen.

ich habe es auf 2 Arten probiert:

1. URLDownloadToFile

Code:

Private Declare Function URLDownloadToFile Lib "urlmon.dll" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Public Function DateiHerunterladen(Url As String, Pfad As String) As Long
DateiHerunterladen = URLDownloadToFile(0, Url, Pfad, 0, 0)
End Function

Sub ...
[...]
myURL = "https://stooq.com/q/d/l/?s=xaueur&d1=20180101&d2=20190409&i=d"
If DateiHerunterladen(myURL, ThisWorkbook.Path) 0 Then
MsgBox "Download nicht erfolgreich"
Exit Sub
Else
MsgBox "Download erfolgreich"
End If
[...]
End sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da kommt zwar die Meldung "Download erfolgreich" aber keine Datei ist da.

2. Microsoft.XMLHTTP
Code:

Sub ...
[...]
myURL = "https://stooq.com/q/d/l/?s=xaueur&d1=20180101&d2=20190409&i=d"

Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile CSVDatei, 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
[...]
End sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier wird zwar die Datei angelegt, aber mit keinem Inhalt (Größe 0).

Ich bin schier am verzweifeln *stupid

:)

hubert17 · 9. April 2019

Moin Eddie,

mit Code:

Sub download_link()

ThisWorkbook.FollowHyperlink ("https://stooq.com/q/d/l/?s=xaueur&d1=20180101&d2=20190409&i=d")

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lädt Excel Datei mit Inhalt runter.

eddie · 9. April 2019

Hallo Hubert,

Danke für deine schnelle Antwort.

Das wäre die 3. Möglichkeit, die ich zwar gefunden habe, aber nicht angewendet habe, weil diese ja ein neues Tabellenblatt anglegt. Ich will aber die Daten in er bereits bestehenden Tabelle weiterverarbeiten.

Darum habe ich nur die 2 o. a. Methoden verwendet.

(Außerdem: Ich habe es gerade jetzt ausprobiert, außer, dass sich ein leeres zusätzliches Tab im IE öffnet, passiert gar nix.)

Aber trotzdem Danke.

lupo1 · 9. April 2019

a) Bei Docs: =GOOGLEFINANCE("XAU";"Price";"1.1.2013";"1.1.2019";"Weekly")
b) Hier eine Datenabfrage als Datei:

eddie · 9. April 2019

Hallo Lupo1,

Danke für die schnelle Antwort.

Wenn mir nichts anderes übrig bleibt, muss ich es wahrscheinlich wie unter b) bei dir lösen.

Hat allerdings den Nachteil, dass die Kurse in USD sind und nicht in EUR (was bei der von mir gefundenen Webseite der Fall ist.) So müsste ich auch noch den Dollarkurs herunterladen und umrechnen.

Daher hoffe ich immer noch, dass es eine Lösung mit der URL von mir gibt.

Aber trotzdem Danke für den Workaround.

eddie · 9. April 2019

Ich danke euch für eure Vorschläge, letzten Endes habe ich es aber anders gelöst.

Da ich im Moment nur den Schlusskurs vom Vortag benötige, lese ich den aus einer Webseite aus in dem ich den Quelltext der Seite auslese und nach dem Zahlenwert suche.

Falls jemand das gleiche Problem hat, hier der Code:

Code:

Public Function Goldkurs_EUR_KG() As Double
' Hier wird der Goldkurs vom Vortag in EUR/kg ermittelt
Const MyURL As String = "Goldpreis in Kilogramm - Das kostet 1kg Gold!"
Dim WebBrowser1 As Object
Dim strHTML As String

Set WebBrowser1 = CreateObject("InternetExplorer.Application")
WebBrowser1.Visible = False ' zum testen anzeigen
WebBrowser1.Navigate MyURL
While WebBrowser1.ReadyState 4
'Warten, bis Seite geladen ist
DoEvents
Wend
strHTML = WebBrowser1.Document.All(0).outerHTML

' "Vortag" finden
strHTML = Mid(strHTML, InStr(strHTML, "Vortag "))
' ""Strong">" finden
strHTML = Mid(strHTML, InStr(strHTML, """strong"">") + 9)
' "" finden
strHTML = Left(strHTML, InStr(strHTML, "") - 1)

Goldkurs_EUR_KG = CDbl(strHTML)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Falls ich mal die historischen Kurse auslesen muss, mache ich mir dann ein paar graue Haare mehr. *wink.gif*

derHoepp · 10. April 2019

Hi,

das kannst du doch ganz einfach ohne VBA über PowerQuery oder über Daten>Aus dem Web direkt als Query-Tabelle abfragen.

Viele Grüße
derHöpp

Office: (Office 2013) Goldkurs in Excel einlesen

Goldkurs in Excel einlesen

Goldkurs in Excel einlesen

Goldkurs in Excel einlesen

Goldkurs in Excel einlesen - Similar Threads - Goldkurs Excel einlesen

Excel Termin in Outlook Kalender

Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

Zellbezugfehler

Excel VBA Spalten mit Ordnerinhalt vergleichen

Registername übernehmen für Excel im O365

Goldkurs Importieren