EXCEL如何用VBA自动获取每个股票近几天的涨幅

一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。

涨幅就是指目前这只股票的上涨幅度。

涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价100%

例如：某只股票价格上一个交易日收盘价100，次日现价为11001，就是股价涨幅为（11001-100 ）/100100%=1001%一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。

比如:一支股票的涨幅是：10%、-5%等 。

1、 打开一个空白电子表格，并选择数据标签页。

2、单击获取外部数据中的按纽，在d出的新建WEB查询对话框中输入要导入，并单击转到按纽，打开；

3、 在打开的新建WEB查询对话框中点击**向右点头选择要导入的数据；

4、 数据选择换成后，箭头变成绿色的小勾，并点击导入按纽完成数据的导入工作。

5、 数据导入完成之后，需要设定数据的刷新频率。在任一单元格上右击鼠标，在菜单中选择数据范围属性；

6、 在d出的数据范围属性d出菜单中更改刷新控件中将默认的60分钟修改成1分钟，之后保存退出。

定量分析的第一步，是获取数据。

获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。

但如果不是程序员，电脑里一般不会有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

Opensh600000dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1)

Get#File1,,b

Cells(i,1)=ba1

Cells(i,2)=ba2

Cells(i,3)=ba3

Cells(i,4)=ba4

Cells(i,5)=ba5

Cells(i,6)=ba6

以上就是关于EXCEL如何用VBA自动获取每个股票近几天的涨幅全部的内容，包括:EXCEL如何用VBA自动获取每个股票近几天的涨幅、如何获取股票数据excel格式的、怎样用excel 实时读取 股票日线数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！