作者：乔山办公网日期：
返回目录：excel表格制作
定量分析的第一步，是获取数据。
获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中e799bee5baa6e997aee7ad94e4b893e5b19e337的日线数据文件。
但如果不是程序员，电脑里一般不会有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
方法一：用成交量-开盘-盘高-盘低-收盘图：
1、这种方法要求股价数据必须按“成交量-开盘-盘高-盘低-收盘”的次序排列，各类数据占一列，不能前后颠倒，如图所示。
2、选择e799bee5baa6e59b9ee7ad94362数据区域的某个单元格，在功能区中选择“插入”选项卡，在“图表”组中单击“其他图表→股价图”，子图表类型选第四种“成交量-开盘-盘高-盘低-收盘图”。
3、要降低柱形高度，可调整主坐标轴的刻度最大值。另外，还可将图例放置于图表底部并改变水平轴的文字对齐方式，使图表显得更美观。
方法二：利用垂直线
1、选择前五列A1:E29区域，在功能区中选择“插入”选项卡，在“图表”组中单击“其他图表→股价图”，子图表类型选第二种“开盘-盘高-盘低-收盘图”。
2、添加“成交量”系列：在“数据”选项卡中单击“选择数据”，弹出“选择数据源”对话框，单击“添加”。将“系列名称”设置为“成交量”字样所在的F1单元格，将“系列值”设置为“成交量”数据所在的F2:F29区域。
3、单击两次确定，图表变为下图所示：
4、选择“图表工具-布局”选项卡，在“当前所选内容”组中选择“系列‘成交量’”，然后单击“设置所选内容格式”按钮，在弹出的“设置数据系列格式”对话框中将“系列绘制在”选项设置为“次坐标轴”。
5、关闭对话框，此时图表变为下图所示：
6、在“图表工具-布局”选项卡的“分析”组中单击“折线→垂直线”，让“成交量”系列显示垂直线。单击选择图表中的“垂直线”。
7、再次单击“设置所选内容格式”，在“设置垂直线格式”对话框中，先选择“线条颜色”选项，设置为“实线”，然后选择“线型”，将“宽度”设置为一个适当的值，本例为“4磅”，如图。
8、关闭对话框，“成交量”系列即显示为柱状。
制作实时股票行情图，应636f70797a686964616f337包含如下内容：1.股票数据表，2.股价图，3.实时从网上下载数据的功能
第一步：制作数据表，数据-导入外部数-新建WEB查询 写入该数据来源地址
第二步：制作股价图，先用公式按股价图要求的顺序引用到当前表，再插入图表-选股价图（第4种）调整图表
第三步：编写程序以实现实时刷新功能，可将以下程序按其要求的位置复制过去
'在模块中编写如下程序段用于刷新行情表，"00:00:10"表示刷新时间间隔，可根据需要进行调整
Dim 结束标记
Sub 刷新行情()
Sheets("日线数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
Sheets("分笔数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
If 结束标记
<> 1 Then Application.OnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 开始刷新()
结束标记 = 0
刷新行情
End Sub
Sub 结束刷新()
结束标记 = 1
End Sub
'在thisworkbook中编写如下代码用于打开该表时就启动行情刷新
Private Sub Workbook_Open()
刷新行情
End Sub
以上制作完成，保存后打开该表，可得到实用的股票行情图，并可得到实时数据用于数据分析