制作实时股票行情图，应包含如下内容：1.股票数据表，2.股价图，3.实时从网上下载数据的功能第一步：制作数据表，数据-导入外部数-新建WEB查询写入该数据来源地址第二步：制作股价图，先用公式按股价图要求的顺序引用到当前表，再插入图表-选股价图调整图表第三步：编写程序以实现实时刷新功能，可将以下程序按其要求的位置复制过去''在模块中编写如下程序段用于刷新行情表，"00:00:10"表示刷新时间间隔，可根据需要进行调整Dim结束标记Sub刷新行情Sheets"日线数据".Range"A1".QueryTable.RefreshBackgroundQuery:=FalseSheets"分笔数据".Range"A1".QueryTable.RefreshBackgroundQuery:=FalseIf结束标记<>1ThenApplication.OnTimeNow+TimeValue"00:00:10","刷新行情"EndSubSub开始刷新结束标记=0刷新行情EndSubSub结束刷新结束标记=1EndSub''在thisworkbook中编写如下代码用于打开该表时就启动行情刷新PrivateSubWorkbook_Open刷新行情EndSub以上制作完成，保存后打开该表，可得到实用的股票行情图，并可得到实时数据用于数据分析。