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

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