csv-Datei per VBA runterladen (.csv nicht in Url)
04.08.2017 23:49:59
SchwarzeEule
ich möchte eine .csv Datei über eine Url runterladen bzw. deren Inhalt in mein Sheet kopieren.
Das Knifflige an der ganzen Sache ist, dass die Url selbst auf keine .csv Datei verweist.
So eine Url lautet z.B.:
https://www.onvista.de/derivative/bonus/snapshotTimesSalesCSV?idNotation=165040397
Öffne ich diese Url, kann ich die .csv Datei herunterladen.
Mit dem üblichen urlmon.dll-API-Code komme ich leider nicht weiter...
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
sURL = "https://www.onvista.de/derivative/bonus/snapshotTimesSalesCSV?idNotation=165040397"
sLocalFile = "D:\snapshot_times_sales.csv"
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal
Für Hilfe wäre ich wirklich super dankbar !!