乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 求 <em>EXCEL</em> 自动获取全部股票近几天的收盘价的 VBA程序-excel vb

求 <em>EXCEL</em> 自动获取全部股票近几天的收盘价的 VBA程序-excel vb

作者:乔山办公网日期:

返回目录:excel表格制作


定量分析的第一步,是获取数据。
获取股e79fa5e98193e78988e69d83337票历史行情数据最方便的途径,就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员,电脑里一般不会有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#File1  i=1  DoWhileNotEOF(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的表格。

网抓已经OK。

原网页源代码写的不太规范,几处语法写错的地方解析时要特殊处理,花了点时间。



一般网页上的数据都可以通过VBA进行抓取,应用得好,可以实现对很很多资料的动态监测。
  涨幅就是指目前这只股票的上涨幅度。
  涨幅的计算公式:涨幅=(现价-上一个交易日收盘价)/上一个交易日收盘价*100%
  例如:某只股票价格上一个交易日收盘价100,次日现价为110.01,就是股价涨幅为(110.01-100 )/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌,价格和前一个交易日持平。如果涨幅为负则称为跌幅。
  比如:一支股票的涨幅是:10%、-5%等 。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网