|
Guten Morgen,
ich versuche aus dem Internet eine CSV-Datei runterzuladen. Dies klappt eigentlich auch ganz gut. Leider verhauen mir die Umlaute (hier z.B. ein ä) die komplette Struktur und ich kann die Daten nicht mehr verwenden.
Meine Abfrage sieht wie folgt aus (URL unkenntlich gemacht):
Sub download_csv_test()
Dim objRequest As Object
Dim strUrl As String
Dim blnAsync As Boolean
Dim strResponse As String
Set objRequest = CreateObject("MSXML2.ServerXMLHTTP")
strUrl = "https://domain/download/Interactive.csv"
blnAsync = True
DoCmd.SetWarnings False
With objRequest
.Open "GET", strUrl, blnAsync
.SetRequestHeader "Content-Type", "application/json"
.Send
'spin wheels whilst waiting for response
While objRequest.ReadyState <> 4
DoEvents
Wend
Response = Split(.ResponseText, vbCrLf)
blnAsync = True
End With
DoCmd.SetWarnings True
End Sub
Ich habe versucht mit ADO die Daten runterzuladen. Meine Hoffnung war, dass dies in UTF-8 möglich wäre. Ich bin mir da aber nicht sicher, ob dies der richtige Weg sein kann.
Vielen Dank für hilfreiche Hinweise :).
|