如何用Excel制作股票实时行情图

来源：互联网知识问答 2026-10-11 01:13:35 8

制作实时股票行情图，应包含如下内容：1股票数据表，2股价图，3实时从网上下载数据的功能
第一步：制作数据表，数据-导入外部数-新建WEB查询写入该数据来源地址
第二步：制作股价图，先用公式按股价图要求的顺序引用到当前表，再插入图表-选股价图（第4种）调整图表
第三步：编写程序以实现实时刷新功能，可将以下程序按其要求的位置复制过去
'在模块中编写如下程序段用于刷新行情表，"00:00:10"表示刷新时间间隔，可根据需要进行调整
Dim 结束标记
Sub 刷新行情()

Sheets("日线数据")Range("A1")QueryTableRefresh
BackgroundQuery:=False

Sheets("分笔数据")Range("A1")QueryTableRefresh
BackgroundQuery:=False
If 结束标记
<> 1 Then ApplicationOnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 开始刷新()
结束标记 = 0
刷新行情
End Sub
Sub 结束刷新()
结束标记 = 1
End Sub
'在thisworkbook中编写如下代码用于打开该表时就启动行情刷新
Private Sub Workbook_Open()
刷新行情
End Sub
以上制作完成，保存后打开该表，可得到实用的股票行情图，并可得到实时数据用于数据分析