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

1. 怎样用EXCEL 实时读取 股票日线数据

插入股票所在网站的网址即可，Excel中的操作如下图

2. 如何使用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

3. 如何用excel获得股票实时数据

具体步骤会被判违规，请见截图。

4. "如何用excel获取网页上的股票数据，并按照日期制成表格"请问你是按照什么技术完成的？

用wdz程序就可以了，这个wdz软件直接将沪深股票日线、5分钟数据（包括最新数据、历史数据）输出为csv格式，然后双击，直接就在excel中打开了。

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

制作实时股票行情图，应包含如下内容：1.股票数据表，2.股价图，3.实时从网上下载数据的功能
第一步：制作数据表，数据-导入外部数-新建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


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

6. 如何制作一个实时统计股票的excel，求高手指点

7. Excel 获取所有股票的数据，非常快，历史数据怎么获取

下载你开户股票行的电脑客户端，可选择导出历史数据，即可

8. 怎样用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