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

chenologin2分享 时间:

第一步:制作数据表,数据-导入外部数-新建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

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

excel调用股票实时价格

  1、首先查找股票价格表的地址。

  2、打开EXCEL表将光标置于A1,选“数据/导入外部数据/新建veb查询”,在地址栏输入股票价格表地址,“转到”,单击价格表旁黄色向右箭头,单击“导入”,即可将价格表导入EXCEL表。

  3、将EXCEL表起名,保存。

  4、光标放在新导入表格中,在“数据/导入外部数据/数据区域属性/数据控件”中,勾选“打开工作簿时自动刷新/确定”。

  5、再在目录打开保存过的EXCEL表,点击“启用自动刷新”按钮,即可根据网上最新的股票数据予以刷新。

  6、你还应进一步建立自己股票查询表,用VLOOKUP函数根据股票代码将自己的股票信息导入到查询表中,并设置收益计算等项目。

这样,每天打开查询表,刷新,即可见到自己股票的最新信息和收益状况了。

股票实时行情能导入Excel吗

在股票排序窗口,点右键,选择"数据导出",有两个选项"导出当前数据"和"导出所有数据",根据你的需要选择一下.比如选择"导出当前数据",弹出对话框,"请选择导出类型"中选择"EXCEL",记住文件的保存路径,点下一步,弹出对话框,根据你的需要,选择选项,选好后,点击下一步,完成.

请问excel如何实时取得某个股票的价格

1这里以获取中国石油(601857)的行情为例,打开提供股市行情的网站,在页面的“个股查询”区域输入该股票代码,选择“实时行情”,单击“行情”按钮之后就可以查询中国石油的行情数据,接下来复制地址栏中网址。

2运行Excel,新建一个空白工作簿,选择“数据”选项卡中“获取外部数据”选项组中“导入外部数据一自网站”命令。

3弹出“新建Web查询’对话框,在地址栏中输入刚刚复制的地址,单击“转到”按钮,此时在下面的文本框中打开网站,单击“导入”按钮。

4弹出“导入数据”对话框,选择要插入的工作表,单击“确定”按钮即可。此时在工作表中导入了网站的数据。

怎样用excel 实时读取 股票日线数据

定量分析的第一步,是获取数据。

获取股票历史行情数据最方便的途径,就是直接读取股票行情软件留在你电脑中的日线数据文件。

但如果不是程序员,电脑里一般不会有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

114691