Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

csv-Datei per VBA runterladen (.csv nicht in Url)

csv-Datei per VBA runterladen (.csv nicht in Url)
04.08.2017 23:49:59
SchwarzeEule
Hallo,
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 !!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv-Datei per VBA runterladen (.csv nicht in Url)
05.08.2017 08:15:20
Luschi
Hallo SchwarzeEule,
bei mir klappt das so:

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
Sub url_DownLoad()
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
sURL = "https://www.onvista.de/derivative/bonus/" & _
"snapshotTimesSalesCSV?idNotation=165040397"
sLocalFile = "F:\Daten\...\snapshot_times_sales.csv"
Application.Cursor = xlWait
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Application.Cursor = xlDefault
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: csv-Datei per VBA runterladen (.csv nicht in Url)
07.08.2017 10:36:01
SchwarzeEule
Hallo Luschi, vielen Dank!
Ich weiß zwar nicht warum Screen.MousePointer = vbHourglass und Screen.MousePointer = vbNormal nicht zu gehen scheinen (kann ja nur daran gelegen haben) aber soll mir recht sein :-)
Viele Grüße

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige