Code: Alles auswählen
Dim objHTTP
fname = Worksheets("Yahoo").Cells(2, 3) & ".csv"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.SetTimeouts 0, 3000, 2000, 5000
objHTTP.Open "GET", Yahoourl, False
objHTTP.send
gpArray = objHTTP.ResponseText
gpfile = FreeFile
Open fname For Binary As #gpfile
Put #gpfile, , gpArray