[转载]如何用Excel制作股票实时行情图

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

 

第一步：制作数据表，数据-导入外部数-新建WEB查询 写入该数据来源地址（如http://biz.finance.sina.com.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

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