怎么用Excel制作股票实时行情图？

　　怎么用Excel制作股票实时行情图？

　　制作实时股票行情图，应包含如下内容：1.股票数据表，2.股价图，3.实时从网上下载数据的功能

　　第一步：制作数据表，数据-导入外部数-新建WEB查询 写入该数据来源地址（如http://biz.finance..cn/company/history.php？symbol=sz000001 得下表）

　　第二步：制作股价图，先用公式按股价图要求的顺序引用到当前表，再插入图表-选股价图（第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

　　以上制作完成，保存后打开该表，可得到实用的股票行情图，并可得到实时数据用于数据分析

　　南方财富网微信号：southmoney