Daten aus dem Internet holen
Verfasst: Sa, 14.06.2008 16:46
Hi Leute, ich muss nun folgenden Excel-code anpassen. Gibt es eine Alternative zu CreateObject("WinHttp.WinHttpRequest.5.1")?
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