i want build simple spread sheet make use of latest stock quotes yahoo, tried few samples web, failed error: "a connection server not established". idea?
sub getquotes2() dim url string url = "http://finance.yahoo.com/d/quotes.csv?s=^gspc&f=l1" msgbox url set http = createobject("winhttp.winhttprequest.5.1") http.open "get", url, false http.send dim resp string: resp = http.responsetext msgbox resp end sub
Comments
Post a Comment