股票一年价格数据如何下载

‘壹’ 怎样导出股票历史价格数据

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

‘贰’ 濡备綍鐢ㄥ悓鑺遍‘涓娆℃у煎嚭镓链夎偂绁ㄧ殑铡嗗彶鏁版嵁excel锛屼笉鏄镆愪竴鍙镶＄エ镄勫巻鍙叉暟鎹锛屼篃涓嶆槸镓链夎偂绁ㄧ殑褰撴棩鏁版嵁锛

鍏蜂綋镎崭綔姝ラゅ备笅锛

1. 镓揿紑钖岃姳椤鸿蒋浠讹纴骞惰繘鍏“镶＄エ”椤甸溃銆

2. 鍦ㄩ〉闱涓婃柟镄勮彍鍗曟爮涓阃夋嫨“鏁版嵁”锛岀劧钖庨夋嫨“鏁版嵁瀵煎嚭”銆

3. 鍦ㄥ脊鍑虹殑瀵硅瘽妗嗕腑锛岄夋嫨闇瑕佸煎嚭镄勬暟鎹绫诲瀷涓“铡嗗彶K绾挎暟鎹”锛屽苟璁剧疆瀵煎嚭镞堕棿娈点

4. 鍦“瀵煎嚭镶＄エ”阃夐”涓锛岄夋嫨“镓链夎偂绁”锛屼互瀵煎嚭镓链夎偂绁ㄧ殑铡嗗彶鏁版嵁銆

5. 链钖庯纴阃夋嫨瀵煎嚭鏁版嵁镄勬牸寮忎负Excel锛屽苟镣瑰嚮“寮濮嫔煎嚭”鎸夐挳銆

浠ヤ笂镎崭綔瀹屾垚钖庯纴钖岃姳椤鸿蒋浠朵细镊锷ㄥ皢镓链夎偂绁ㄧ殑铡嗗彶鏁版嵁瀵煎嚭镊充竴涓狤xcel鏂囦欢涓銆

闇瑕佹敞镒忕殑鏄锛屽煎嚭镓链夎偂绁ㄧ殑铡嗗彶鏁版嵁闇瑕佽楄垂涓瀹氱殑镞堕棿鍜岃＄畻链鸿祫婧愶纴锲犳ゅ缓璁鍦ㄦ搷浣滃墠纭淇濊＄畻链虹殑镐ц兘鍜屾暟鎹缃戠粶镄勭ǔ瀹氭с

钖屾椂锛屼负浜嗘柟渚垮悗缁镄勬暟鎹鍒嗘瀽鍜屽勭悊锛屽缓璁鍦ㄥ煎嚭鏁版嵁鍓嶅厛杩涜屾暟鎹娓呮礂鍜屾暣鐞嗭纴鍒犻櫎寮傚父鍊煎拰鍐椾綑鏁版嵁锛岀‘淇濇暟鎹镄勫嗳纭镐у拰鍙闱犳с

镐讳箣锛岄氲繃钖岃姳椤鸿蒋浠剁殑“鏁版嵁瀵煎嚭”锷熻兘锛屽彲浠ユ柟渚垮湴涓娆℃у煎嚭镓链夎偂绁ㄧ殑铡嗗彶鏁版嵁镊矱xcel锛屼负钖庣画镄勬暟鎹鍒嗘瀽鍜屽勭悊鎻愪緵浜嗕究鍒┿

‘叁’ 濡备綍涓嬭浇镶＄エ鍏ㄥ勾鏁版嵁

绗涓姝ワ细涓嬭浇钖岃姳椤哄畨瑁呭湪鐢佃剳涓婏纴铹跺悗镓揿紑杞浠讹纴阃夋嫨钬滆嚜阃夎偂钬濓纴姣斿傛垜娣诲姞浜嗗钩瀹夐摱琛岋细

绗浜屾ワ细鍦ㄨ佸煎嚭鏁版嵁镄勮偂绁ㄤ笂鍙抽敭锛岄夋嫨鏁版嵁瀵煎嚭

绗涓夋:阃夋嫨excel鏂囦欢镄勫煎嚭鍦板潃锛岄夋嫨镓闇鏁版嵁锣冨洿镞ユ湡锛岀偣鍑讳笅涓姝ュ氨濂戒简

缁撴灉锛氭墦寮excel鏂囦欢濡备笅锛

鍙﹀栦竴涓绠鍗曟柟娉曪纴鎴戜箣鍓崭篃镞╀简濂戒箙镶＄エ鏁版嵁锛屽悓鑺遍‘镄勬暟鎹涓嶅叏锛屾妧链鍒嗘瀽杩樻槸闇瑕佹洿鍏ㄧ殑鏁版嵁銆傛湁涓 gong&zhong&hao鍙浠ユ疮澶╅嗗彇链鏂版暟鎹-鍗庢櫙镶″竞鏁版嵁锛屼綘鍙浠ヨ瘯璇

鍝閲屽彲浠ヤ笅杞借偂绁ㄥ巻鍙叉暟鎹锛

鍙浠ヤ笅杞藉悓鑺遍‘涔拌偂绁ㄣ

1銆佹墦寮钖岃姳椤篈PP銆

2銆佽繘鍏ラ〉闱涓锛岄夋嫨鍙充笅瑙掆滀氦鏄撯濄

3銆佺橱闄呜嚜宸辩殑璐︽埛銆

4銆佽繘鍏ラ〉闱锛岄夋嫨钬滀拱鍏モ濄

5銆佽緭鍏ヨ嚜宸辨兂瑕佷拱鍏ョ殑镶＄エ浠ｇ爜锛屼篃鍙浠ュ湪琛屾儏椤甸溃阃夋嫨镶＄エ锛屽彲镙规嵁镶＄エ浠锋牸杩涜屾帓搴忥纴阃夋嫨镊宸辨兂瑕佷拱鍏ョ殑镶＄エ鍗冲彲銆

6銆侀夋嫨璐涔扮殑鏁伴噺锛岀偣鍑荤澶存墍鎸囧勭殑钬滀拱鍏モ濆氨鍙浠ヤ简銆

鐜板湪寰埚皯链夎兘鐩存帴涓嬭浇镄勪简锛岄兘锅氶檺鍒朵简銆傝偂绁ㄥ巻鍙叉暟鎹浠ュ墠镄勭倰镶¤蒋浠跺熀链閮芥湁锛屾参鎱㈢殑閮藉彉浜

镶＄エ铡嗗彶鏁版嵁涓嬭浇

杩欓噷涓嶆㈠彲浠ヤ笅杞借偂绁ㄧ殑铡嗗彶鎴愪氦浜ゆ槗鏁版嵁锛岃缮链夊悇绉嶆寚鏁扮殑铡嗗彶鏁版嵁锛屾瘆濡傛勃娣300銆佹埧鍦颁骇鎸囨暟绛夌瓑閮芥湁镄勚

铹跺悗锘洪噾銆佸彲杞鍊轰篃閮芥湁锛屼笅杞藉緢鏂逛究銆傚～涓镶＄エ浠ｇ爜銆侀偖绠憋纴绛夌潃鏀舵暟鎹灏辫屼简銆

‘肆’ 如何下载股票数据

网络：大富翁数据中心，可找到历史股票期货数据下载
大富翁数据中心可以提供沪深实时行情，股指商品期货实时行情；每日收盘后数据下载，如：逐笔数据（每秒可能多条明细），分笔数据（每三秒一条明细），专业财务数据，日线数据，分钟数据等。
历史专业财务，股本结构，分红送配等数据，股票逐笔数据，股票，期货，外汇历史分笔数据，各任意周期的分钟数据（如1,3,5,7,10,15,30,60等任意）。

‘伍’ 如何下载股票历史数据

方法/步骤1:

登录股票软件，点击左上角系统，选择子菜单下面的盘后数据下载。

方法/步骤2:

在“沪深日线”栏目下，将日线和实时行情选项打勾。

方法/步骤3:

点击第一个日期后面的向下小三角，设置起始日期。

方法/步骤4:

点击第二个日期后面的向下小三角，设置结束日期。

方法/步骤5:

日期设置完毕后，点击开始下载。下载完成后你想要的时间段的日K线数据就已经保存到电脑里面了。如果还需要下载其他类型的数据，再分别选择下载。

注意事项

系统下载的数据时间段越长，能够看到的数据就越多，越能帮助全面分析。

此方法只适用于部分股票分析软件。

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

‘柒’ 阃氲揪淇¤偂绁ㄦ暟鎹涓嬭浇涓庡煎嚭璇﹁В

阃氲揪淇℃槸涓娆惧箍娉涗娇鐢ㄧ殑镶＄エ鍒嗘瀽杞浠讹纴瀹冩彁渚涗简涓板瘜镄勮偂绁ㄦ暟鎹涓嬭浇涓庡煎嚭锷熻兘銆傝繖浜涘姛鑳戒娇寰楃敤鎴疯兘澶熸柟渚垮湴銮峰彇镓闇镄勮偂绁ㄦ暟鎹锛屼互渚胯繘琛屾洿娣卞叆镄勫垎鏋愬拰镰旂┒銆

棣栧厛锛岄氲揪淇℃彁渚涗简澶氱嶈偂绁ㄦ暟鎹涓嬭浇镄勬柟寮忋傜敤鎴峰彲浠ラ氲繃杈揿叆镶＄エ浠ｇ爜鎴栧悕绉版潵妫绱㈠苟涓嬭浇镓闇镄勮偂绁ㄦ暟鎹銆傛ゅ栵纴阃氲揪淇¤缮鏀鎸佽嚜瀹氢箟鏁版嵁涓嬭浇锛岀敤鎴峰彲浠ユ牴鎹镊宸辩殑闇姹傝剧疆涓嬭浇鍙傛暟锛屼緥濡傛椂闂磋寖锲淬佹暟鎹绫诲瀷绛夈傝繖浣垮缑鐢ㄦ埛鑳藉熺伒娲诲湴銮峰彇镓闇镄勮偂绁ㄦ暟鎹锛屾弧瓒充笉钖岀殑鍒嗘瀽闇姹伞

鍦ㄥ煎嚭镶＄エ鏁版嵁鏂归溃锛岄氲揪淇′篃鎻愪緵浜嗗氱嶅煎嚭镙煎纺鍜岄夐”銆傜敤鎴峰彲浠ュ皢涓嬭浇镄勮偂绁ㄦ暟鎹瀵煎嚭涓篍xcel銆丆SV绛夊父瑙佹牸寮忥纴鏂逛究钖庣画镄勬暟鎹澶勭悊鍜屽垎鏋愩傚悓镞讹纴阃氲揪淇¤缮鏀鎸佽嚜瀹氢箟瀵煎嚭瀛楁碉纴鐢ㄦ埛鍙浠ユ牴鎹镊宸辩殑鍒嗘瀽闇姹傞夋嫨闇瑕佸煎嚭镄勬暟鎹瀛楁碉纴鎻愰珮鏁版嵁澶勭悊镄勬晥鐜囥

涓句釜渚嫔瓙锛屽亣璁句竴涓鐢ㄦ埛𨱍宠佷笅杞藉苟瀵煎嚭镆愬彧镶＄エ镄勫巻鍙蹭环镙兼暟鎹銆备粬鍙浠ュ湪阃氲揪淇′腑杈揿叆璇ヨ偂绁ㄧ殑浠ｇ爜鎴栧悕绉帮纴阃夋嫨闇瑕佷笅杞界殑镞堕棿锣冨洿鍜屾暟鎹绫诲瀷锛岀劧钖庣偣鍑讳笅杞芥寜阍銆备笅杞藉畬鎴愬悗锛屼粬鍙浠ュ皢鏁版嵁瀵煎嚭涓篍xcel镙煎纺锛屽苟鍦‥xcel涓瀵规暟鎹杩涜岃繘涓姝ョ殑鍒嗘瀽鍜屽勭悊銆

镐讳箣锛岄氲揪淇＄殑镶＄エ鏁版嵁涓嬭浇涓庡煎嚭锷熻兘涓虹敤鎴锋彁渚涗简渚垮埄镄勬暟鎹銮峰彇鍜屽勭悊鏂瑰纺锛屾弧瓒充简涓嶅悓鐢ㄦ埛镄勯渶姹伞傞氲繃𨱔垫椿杩愮敤杩欎簺锷熻兘锛岀敤鎴峰彲浠ユ洿濂藉湴杩涜岃偂绁ㄥ垎鏋愬拰镰旂┒锛屼负鎶曡祫鍐崇瓥鎻愪緵链夊姏镄勬敮鎸併