股票年数据导出

A. 如何下载股票历史成交数据到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建立炒股系统的整套方法，请看后续内容。"

B. 怎么把股票数据导出文档

把股票数据导出文档，登录行情软件；软件顶部的“系统”-->“数据导出”；弹出的窗口有3种文件格式选择：txt、excel和图形。选择需要的格式，以及保存位置即可。股票（stock）是股份公司发行的所有权凭证，是股份公司为筹集资金而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。每股股票都代表股东对企业拥有一个基本单位的所有权。每家上市公司都会发行股票。同一类别的每一份股票所代表的公司所有权是相等的。每个股东所拥有的公司所有权份额的大小，取决于其持有的股票数量占公司总股本的比重。

C. 怎样导出股票历史价格数据

这里笔者以同花顺软件为例：
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位。

D. 钱龙软件怎么导出过去一年股票数据

钱龙软件财务数据导出根据版本不同方法略有差异，
证券服务平台方法是：进入个股F10后，点击财务分析，右键---全选---复印（或打印），然后粘贴到记事本或Excel或Word中；
钱龙旗舰版方法是：进入个股F10后，点击财务分析，右键--复制全部文本（或根据需要复制选中文本），然后粘贴到事先建立的空白记事本或Excel或Word中，也可以直接点击导出当前栏目。
你所需要的某个年份的财务数据（一年前的数据只能到有关网站下载）或指定的财务数据，只能单独逐个导出。

E. 怎么将股票中的数据导出到excel

1、首先在电脑桌面上打开股票软件。

F. 如何导出东方财富交易记录

1. 桌面找到软件的登录快捷方式。
2. 登录软件。
3. 在软件里面鼠标单击选中一个需要导出历史数据的个股。
4. 按快捷键F1，弹出个股历史交易数据。
5. 右击鼠标，弹出的窗口选中“数据导出”——“导出所有数据”。
6. 点击“浏览”按钮，选择历史数据存储位置，导出类型选择“Excel文件”，方便统计分析。点击“下一步”。
7. 继续按“下一步”，完成数据的导出。
8. 从存储位置找到导出的数据表，打开，可以看到详细的数据，也可以进行统计分析。
操作环境：电脑端：macbookpro mos14打开google版本 92.0.4515.131
拓展资料
一、东方财富通爆发线公式
主力资金:EMA(100*(C-LLV(LOW，34))/(HHV(H，34)-LLV(LOW，34))，3)， COLORRED，LINETHICK2;
即将爆发线: 65，COLOR00FF00;
爆发线:80，COLORWHITE，LINETHICK1;
DRAWTEXT(CROSS(主力资金，爆发线)，主力资金，'★爆发！') ，COLORYELLOW;
爆发警戒线: 50，COLOR00FF00;
抄底线:20，COLORWHITE，LINETHICK2;
DRAWTEXT(CROSS(主力资金，抄底线)，主力资金，'★抄底') ，COLORWHITE;
DRAWTEXT(CROSS(主力资金，爆发警戒线)，主力资金，'★加仓') ，COLORWHITE;
DRAWTEXT(CROSS(主力资金，即将爆发线)，主力资金，'★加仓') ，COLORWHITE;
DRAWTEXT(CROSS(爆发线，主力资金)，爆发线，'★空仓') ，COLORWHITE;
RSV:=(((CLOSE - LLV(LOW，9)) / (HHV(HIGH，9) - LLV(LOW，9))) * 100);
K:=SMA(RSV，3，1);
D:=SMA(K，3，1);
J:=3*K-2*D;
X:=LLV(J，2)=LLV(J，8);
RE:=CROSS(J，REF(J+0.01，1)) AND X AND J<19;
STICKLINE(RE，0，1，3，0)，COLORYELLOW;
CSS:=((CLOSE-LLV(LOW，8))/(HHV(HIGH，8)-LLV(LOW，8))*100);
HH:=CROSS(20，EMA(CSS，3));
CE:=REF(HH，1);
AA:=REF(CLOSE，1);
BBB:=SMA(MAX(CLOSE-AA，0)，5，1)/SMA(ABS(CLOSE-AA)，5，1)*1000;
HHH:=BBB-LLV(BBB，10);
SS:=(MA(HHH，2)*3+HHH*13)/16;
短线买点:=IF(SS>13，MA(SS，2)，SS)/6;
短线出击:=IF(CROSS(短线买点，1) AND (短线买点<30)，30，1);
II:=短线出击=30;
合成:CE AND II;
IF(合成，40，20)，COLORMAGENTA;
二、股民必备app
1、大智慧
大智慧365免费版是面向广大专注于A股市场投资者推出的专业级产品。大智慧365免费版全新的导航界面，操作更简洁，功能上包含了当前市场所有基本功能，并融入了沪深Level-2、资金关注、千档买卖盘等特色功能。
2、经传多赢
拥有63个独家特色指标，16大智能决策平台，7大经典盈利模式，一站式解决炒股难题！大数据技术的突破与运用，智能投资的革命与创新，行业独创因子决策体系，价值投资优质股深挖利器
3、同花顺
同花顺电脑版是市场上最受欢迎的免费炒股软件，软件功能非常强大，界面简洁明晰、操作方便快捷，设计得很人性化。同花顺电脑版提供炒股必需的沪深两市（含创业板）、基金、港股美股等外盘及股指期货行情，还提供包括行业财经和个股F10资讯、在线委托交易等诸多功能。
5、华泰证券
华泰证券软件电脑版是目前市场上具有代表性的软件之一，软件界面切换速度快、功能强大又全面、技术指标丰富。华泰证券软件电脑版适合具有一定的技术指标分析能力的客户使用，能为投资者提供文本、超文本(HTML)、信息地雷、财务图示、紧急公告、滚动信息等多种形式的资讯信息。

G. 在同花顺软件中怎么导出历史数据

1、选好股票“华丽家族”，点击左侧菜单栏中的“K线图”。

2、得到其具体的曲线图。

3、点击键盘F1，进入到历史数据界面。

4、在历史数据界面上，鼠标右键出现菜单选择“数据导出”，选择”导出所有数据“。可以选择保存路径“桌面”。

5、然后“下一步”，选择自己需要的元素。然后再下一步，完成。

6、打开桌面“Table.xls”,文件就可以看到了。

H. 同花顺怎样导出股票数据

1、打开同花顺股票交易系统，输入个股代码，在K线图界面，按F1进入历史成交，往上翻，翻到要导出数据的起始点，点鼠标右键，数据导出，导出所有数据，下一步，下一步，完成，默认保存在桌面上。
2、同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件，它分为免费PC产品，付费PC产品，电脑平板产品，手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯，同花顺股票软件全新版免注册。全新版同花顺股票软件新增强大功能：自主研发的搜牛财经及自定义选股，新增通达信模式。

I. 怎么将股票一年价格倒出来

行情软件里面有，可以自己去导出。一般在页面左上角，系统里面的数据导出，在高级导出。最近几年的行情在里面。
股票价格导出excel表格流程：1、依次点击：数据--导入外部数据--新建web查询--输入源数据网址--在网页上选择要导入的数据。2、当网页数据变化时只要在右键菜单中选择“刷新”即可。另外还可设置定时刷新。3、用这种方法可以把网站公布的实时行情自动导入到excel表中。
股票是股份公司所有权的一部分，也是发行的所有权凭证，是股份公司为筹集资金而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。

J. 如何下载股票全年数据

第一步：下载同花顺安装在电脑上，然后打开软件，选择“自选股”，比如我添加了平安银行：

第二步：在要导出数据的股票上右键，选择数据导出

第三步:选择excel文件的导出地址，选择所需数据范围日期，点击下一步就好了

结果：打开excel文件如下：

另外一个简单方法，我之前也早了好久股票数据，同花顺的数据不全，技术分析还是需要更全的数据。有一 gong&zhong&hao可以每天领取最新数据-华景股市数据，你可以试试