⑴ 怎样用excel 实时读取 股票日线数据
定量分析的第一步，是获取数据。
获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。
其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。
我用EXCEL里的VBA编写了一段代码，读取通达信股票行情软件的日线文件。已经测试通过。
代码如下。与爱好定量分析的朋友分享。
TypeMyType
a1AsLong'标示码
a2AsLong'日期
a3AsSingle'开盘价
a4AsSingle'最高价
a5AsSingle'最低价
a6AsSingle'收盘价
a7AsSingle'成交金额
a8AsLong'成交量
EndType
Sub按钮1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1)
Get#File1,,b
Cells(i,1)=b.a1
Cells(i,2)=b.a2
Cells(i,3)=b.a3
Cells(i,4)=b.a4
Cells(i,5)=b.a5
Cells(i,6)=b.a6
⑵ 求 EXCEL 自动获取全部股票近几天的收盘价的 VBA程序
我只会从安装的本地文件下载的数据中获得数据转化成Excel的表格。
⑶ 用VB如何直接获取股票实时数据
可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据，代码如下：
publicstring[]getStockInfo(stringstockcode)
{
//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某只股票的代码
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
⑷ EXCEL如何用VBA自动获取每个股票近几天的涨幅
一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
涨幅就是指目前这只股票的上涨幅度。
涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
比如:一支股票的涨幅是：10%、-5%等 。
⑸ 请教在EXCEL表格中能否读取指定某个股票的某一天的收盘价
程序以前没写过，理论上是可以实现的，因为新浪腾讯的股票数据也是通过程序获得的。网络之后可以找到如下方案。
1 用VBA编写程序
2 读取新浪或腾讯财经数据的数据包。（也可以像新浪一样读取深证或上海证交所提供的数据）
下面的链接是其中的一些例子。
http://blog.sina.com.cn/s/blog_7ed3ed3d010146tl.html
⑹ 在EXCEL里用VBA编程，对选择的数据作股票图
EXCEL折线图根本就不可能有这么复杂，VBA画图取点与表格实际坐标之间对应又不确定和关系复杂，所以EXCEL不适合做这类工作。
⑺ 用excel vba 抓取网页中 股票的财务数据 然后做分析 做好了可以加分哈
网抓已经OK。
原网页源代码写的不太规范，几处语法写错的地方解析时要特殊处理，花了点时间。
⑻ 怎么利用vba获取财经网上股票股价的实时数据
你愿意出钱吗，愿意出钱的话我可以帮你写
⑼ excel股票自动刷新，VBA代码如何写啊
我测试了下发现是鼠标放上去悬停才能触发刷新数据的动作。。。
sheet1里写：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
宏2
End Sub
模块1里写：
Sub 宏2()
'
' 宏2 宏
ActiveWorkbook.RefreshAll
If Sheet1.[G1] <> "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"
End Sub
亲测OK。
TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次，可以改成你想要的数值。
这个是我录制宏，再稍微修改下，几分钟完成的。