Excel中读取股票信息的自定义函数

来源：http://www.minioa.net/office/viewtopic.php?f=3&t=99

Excel中如何读取一个网页

你可以在单元格中使用，比如A2=Stock(A1)，其中A1未股票代码，上证后加1，深证后加2，共7位，详情看东方财富网。例如6018181，0000392

Function Stock(cell)
Dim str
Dim arr
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Call objHttp.Open("GET", "http://hqdigi2.eastmoney.com/EM_Quote2010NumericApplication/CompatiblePage.aspx?Type=ZT&jsName=js_fav&fav=" & cell, False)
Call objHttp.setRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)")
Call objHttp.send("")
str = objHttp.ResponseText
arr = Split(str, ",")
Stock = arr(3)
End Function

上述代码不支持代理上网。