excel获得股票历史数据

1. 怎样用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#File1i=1DoWhileNotEOF(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

2. 如何用excel获取网页上的股票数据，并按照日期制成表格

打开通达信行情软件，切换到某个股票的K线图状态，再按F1，菜单“系统”里选择“数据导出”，点“高级导出”，文件名“.TXT”改为“.XLS"，点“添加品种”找到自己保存的股票，再点“开始导出”就OK了。

3. 如何获取股票数据excel格式的

1、打开一个空白电子表格，并选择【数据】标签页。

4. 如何下载股票历史成交数据到Excel或txt

以华中智能股票软件为例：（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”，点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt
补充资料：
如何获取所有股票历史数据：
如果要对股市进行分析，首先就要获取所有股票的历史数据，只有通过股票的历史数据，我们才能分析出股市的规律。
（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）
一、工具/原料
1、EXCEL2007或者以上版本，不能使用WPS
2、电脑1g内存1核处理器及以上配置
3、拥有较强逻辑分析能力以及少量智慧及以上的大脑一颗
方法/步骤：
第一步，获取股票代码，复制其中一部分到第一个工作表A4到A127，然后通过程序把每一个代码写入到不同的工作表A2位置，并对该工作表以该股票代码命名。程序如下：
Sub 工作表命名()
For i = 4 To 127
Sheets(i).Range("a2") = "'" & Sheets(1).Range("a" & i)
Next i
For i = 4 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a2").Value
Next
End Sub
第二步，获取股票历史数据。代码如下：
Private Function GetSource(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET"， sURL， False
oXHTTP.Send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing
End Function
Sub 历史数据()
Dim objXML As Object
Dim txtContent As String
Dim i As Integer
Dim strCode As String
Dim gp As String
Dim kaishihang
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9， arr10， arr11
On Error Resume Next
EndRow = Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Range(Cells(startRow， 1)， Cells(EndRow， 11)).Value = ""
Else
Exit Sub
End If
Set objXML = CreateObject("Microsoft.XMLHTTP")
gp = [A2]
For h = 1 To 4
For m = 1 To 4
kaishihang = [A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
With objXML
.Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + ji + ""， False
.Send
If objXML.Status = 200 Then
txtContent = .responsetext
arr = Split(txtContent， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 10)， 10)
arr2 = Split(arr1(1)， Chr(60))
Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
arr10 = Split(arr1(9)， Chr(60))
Cells(i + kaishihang， 10) = Mid(arr10(0)， InStr(arr10(0)， ">") + 1)
arr11 = Split(arr1(10)， Chr(60))
Cells(i + kaishihang， 11) = Mid(arr11(0)， InStr(arr11(0)， ">") + 1)
Next i
End If
End With
Next m
Next h
Set objXML = Nothing
End Sub
第三步，获取上证历史数据，并获取所有股票的历史数据。程序如下：
Sub 所有股票历史数据获取()
Application.ScreenUpdating = False
Dim s As String， gp As String， nian As String， ji As String， s1 As String
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9
Dim i， h As Long
Dim kaishihang
Dim LastRow As Long， r As Long
On Error Resume Next
EndRow = Sheet2.Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Sheet2.Range(Sheet2.Cells(startRow， 1)， Sheet2.Cells(EndRow， 9)).Value = ""
Else
Exit Sub
End If
For h = 1 To 5
For m = 1 To 4
kaishihang = Sheet2.[A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
s1 = "http://quotes.money.163.com/trade/lsjysj_shu_000001.html?year=" + nian + "&season=" + ji + ""
s = GetSource(s1)
arr = Split(s， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Sheet2.Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 4)， 4) & "-" & Right(Left(arr1(0)， 6)， 2) & "-" & Right(Left(arr1(0)， 10)， 2)
arr2 = Split(arr1(1)， Chr(60))
Sheet2.Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Sheet2.Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Sheet2.Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Sheet2.Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Sheet2.Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Sheet2.Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Sheet2.Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Sheet2.Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
Next i
Next m
Next h
Application.ScreenUpdating = True
n = Worksheets.Count
For i = 4 To n
Worksheets(i).Activate
历史数据
Next
End Sub
第四步，保存工作簿，并对该工作簿命名为1，然后复制该工作簿27份，把所有股票代码写入每一个工作簿第一个工作表的A3到A127列。然后根据第一步对工作簿内的工作表命名，并在每一个工作表A2单元格内写入股票代码。
第五步，把这些工作簿存放到炒股文件夹下的数据库文件下。然后在炒股文件夹下新建一个工作簿，命名为“一键更新表格”，写入如下代码：
Sub 所有股票历史数据更新()
Dim wb As Workbook
For i = 1 To 27
Set wb = Workbooks.Open(ThisWorkbook.Path & "数据库" & i & "".xlsb"")
Application.Run ""'"" & wb.Path & """" & i & "".xlsb'!所有股票历史数据获取""
wb.Save
wb.Close
Next i
End sub
当启动这一段代码以后，程序会自动一个一个的打开对应的工作簿然后获取里面所有股票的历史数据，存放在对应的工作表当中。
第六步，对相应的程序添加按钮，这样，我们在启动对应程序时，只需要点一下对应的按钮就可以实现了。这样，我们通过多个工作簿就实现了获取所有股票历史数据的方法。而后面，我们只需要通过获取对应股票每一天的历史数据，我们就能够在任意一天很快速的能够拥有所有股票的历史数据了。
注意事项
1、在后续需要对这些数据进行分析，里面会加入很多计算，所以启动所有历史数据更新时，我们应该要关闭自动更新。
2、因为历史数据很大，所以这里只获取四年的数据，想要获取更多数据，可以更改程序里面 “For h = 1 To 5”的那个5即可。
3、历史数据的获取需要较长的时间，要提前做好准备。
4、如果你想要弄清楚用EXCEL建立炒股系统的整套方法，请看后续内容。"

5. 如何用同花顺一次性导出所有股票的历史数据excel，不是某一只股票的历史数据，也不是所有股票的当日数据；

1. 首先点按电脑界面上的同花顺图标
2. 输入用户名和密码之后点按登录
3. 进入同花顺界面后点按界面左侧的自选股按钮 然后点按自选股中收藏的某个股票
4. 右键点按自选股中收藏的某支股票 在弹出的菜单中点按数据导出 然后在二级菜单中点按导出所有数据
5. 在浏览按钮下选择导出文件位置 这里选择了桌面 然后选择导出的类型为excel 然后点按下一步
6. 勾选所有需要导出的项目 然后点按下一步
7. 最后点按完成
8. 此时在桌面上可以看到导出的文件 文件名字为table 双击进入该文件
9. 打开excel文件之后选中行标2行标3 然后点按右键 然后在弹出的菜单中点按复制
10. 点按复制之后 着两行周围出现闪烁的虚线
11. 为这两行新添加的数据添加日期
12. 点按数据下的排序按钮 以名称为第一关键字 日期为第二关键字进行排序
同花顺，是一款功能非常强大的免费网上股票证券交易分析软件，投资者炒股的必备工具。
同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件，它分为免费PC产品，付费PC产品，电脑平板产品，手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯，同花顺股票软件全新版免费免注册。全新版同花顺股票软件新增强大功能：自主研发的问财选股及自定义选股，问财选股是新一代自然语言选股，解析自然语言选出股票。新增通达信模式。
同花顺面向客户可为银行、证券、保险、基金、私募、高校、政府等行业提供智能化解决方案。正在拓展至生活、医疗、教育等更多领域。
2020年1月9日，胡润研究院发布《2019胡润中国500强民营企业》，同花顺以市值490亿元位列第135位。

6. 新浪财经如何将股票历史数据复制到excel

方法：首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”，点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt,,只有这二种格式可以选择；选取好后点击下一步，在“导入导出对话框模板”中选择你要的项目（如最高价、最低价，开盘价等，默认是全选），点下一步，完成。默认保存路径在桌面上。没有批量下载，只能一个一个来。
股票是股份公司发行的所有权凭证，是股份公司为筹集资金而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。每股股票都代表股东对企业拥有一个基本单位的所有权。每支股票背后都有一家上市公司。同时，每家上市公司都会发行股票的。
同一类别的每一份股票所代表的公司所有权是相等的。每个股东所拥有的公司所有权份额的大小，取决于其持有的股票数量占公司总股本的比重。
股票是股份公司资本的构成部分，可以转让、买卖或作价抵押，是资本市场的主要长期信用工具，但不能要求公司返还其出资。

7. 怎么把一只股票的历史数据导入excel

一般来讲，股票软件中的数据都可以导出为excel文件、或者txt文件。
如果能直接导出为excel文件那最好；
如果只能导出为txt文件，那么可以在excel中通过“数据”这个菜单下的导入功能、或者“自文本”功能把txt文件中的数据导入到excel文件。

8. 如何用excel获得股票实时价格、涨跌幅等 excel自动更新股票数据

如何用excel获得股票实时价格、涨跌幅等 excel自动更新陪段股票数据。推荐个看股票的神器——腾讯文档，我现在看股票实时信息就是用的这个。腾讯文档在线表格有个“股票动态函数”，非常好用!简单、无需学习，数据是调用网上的，所以是实时自动更新;看看我颤乱弯日常看的股票表：
操作方法
操作方法
制作步骤非常简单，5分钟搞定，操作如下：
1、登录腾讯文档茄闷(搜索腾讯文档官网，可直接使用网页版)，新建一个在线表格，找到股票函数。目前支持的数据类型包括公司名称、实时价格、开盘价、涨跌额、涨跌额、成交量等
2、这里以腾讯公司股票为例开始制作。选中空白表格，点击插入股票，输入股票代码或公司，会自动匹配结果，点击腾讯控股
3、接下来会自动出现数据类型让你选择，第一列是公司简称，这里先选择“1”，选中点击即可
4、就完成公司名称的调用了
5、同样的方法，把实时价格、开盘价、最高价、最低价等这些都插入股票函数，就制作完成了。(快捷方法：直接复制粘贴，更改数据类型即可)
完成后效果如下，由于是调用的网上股票数据，所以这个表的股票信息都是实时更新，打开即可查看最新情况。

9. 如何以excel取得股市动态网页资料

一、建立好一个Excel档后，变更页签名称为‘现值’及‘股票资料’。

二、在‘股票资料’页签的第一格中插入web资料

三、在web窗口中查询欲链接的数据，并勾核欲歃入数据的范围

四、在汇入的数据上，右键单击选择内容，勾核开启档案自动更新数据，并指定每隔三分钟自动重新取得数据。

五、在现值数据中，输入股票名称及张数，并且在购入值输入购买股票的购买价值。

六、接下来依下列说明输入功式(以第一笔数据为例)：
字段 标题 输入公式 A栏 股号 由股票数据复制贴上 B栏 购买价 手动输入购买当时的价位 C栏 股票现价 =VLOOKUP(A2,股票资料!A:L,3,0) D栏 终值 =L2-K2 E栏 投报率 =IF(ISERR(D2/K2)=TRUE,0,D2/K2) F栏 张数 手动输入购买当时的张数 G栏 买价 =ROUND(B2*1000+I2,0) H栏 卖价 =C2*1000 I栏 买入手续费 =ROUND(B2*1000*0.001425,2) J栏 卖出手续费 =ROUND(C2*1000*0.004425,2) K栏 买入总值 =G2*F2 L栏 卖出总值 =(H2-J2)*F2

10. 一次性导出所有股票的历史数据到一张excel表中

用免费的wdz程序就可以，你网络一下吧。这个程序可直接将全部股票的数据导出到一个excel文件中。而且包括了沪深1990年至今的全部日线、2000年至今的全部5分钟数据。