导出股票历史15分钟线数据

㈠ 钖岃姳椤烘庝箞涓嬭浇涓镶＄殑镓链夊巻鍙叉暟鎹锛

钖岃姳椤轰笅杞戒釜镶＄殑镓链夊巻鍙叉暟鎹锛
1銆侀栧厛鍒囨崲鍒拌佷笅杞芥暟鎹镄勮偂绁↘绾垮舰镐侊纴鎸夆淔1钬濊繘鍏モ沧棩绾挎煇镆愯偂绁ㄥ巻鍙叉垚浜も濓绂
2銆佺偣鍑婚紶镙囧彸阌->鏁版嵁瀵煎嚭->瀵煎嚭镓链夋暟鎹->鍦ㄢ滆烽夋嫨瀵煎嚭镄勭被鍨嬧濅腑阃夋嫨excel鎴杢xt锛岋纴鍙链夎繖浜岀嶆牸寮忓彲浠ラ夋嫨锛
3銆侀夊彇濂藉悗镣瑰嚮涓嬩竴姝ワ纴鍦ㄢ滃煎叆瀵煎嚭瀵硅瘽妗嗘ā𨱒库濅腑阃夋嫨瑕佺殑椤圭洰锛
4銆佺偣涓嬩竴姝ワ纴瀹屾垚銆傞粯璁や缭瀛樿矾寰勫湪妗岄溃涓娿
涓銆佸悓鑺遍‘杞浠
钖岃姳椤猴纴鏄涓娆惧姛鑳介潪甯稿己澶х殑鍏嶈垂缃戜笂镶＄エ璇佸埜浜ゆ槗鍒嗘瀽杞浠讹纴鎶曡祫钥呯倰镶＄殑蹇呭囧伐鍏枫
钖岃姳椤鸿偂绁ㄨ蒋浠舵槸涓涓鎻愪緵琛屾儏鏄剧ず銆佽屾儏鍒嗘瀽鍜岃屾儏浜ゆ槗镄勮偂绁ㄨ蒋浠讹纴瀹冨垎涓哄厤璐笔C浜у搧锛屼粯璐笔C浜у搧锛岀数鑴戝钩𨱒夸骇鍝侊纴镓嬫満浜у搧绛夐傜敤镐у己镄勫氢釜鐗堟湰銆傚悓鑺遍‘镶＄エ杞浠舵敞閲嶅悇澶ц瘉鍒告満鏋勚佸箍澶ц偂姘戠殑闇姹傚拰浣跨敤涔犳傥锛屽悓鑺遍‘镶＄エ杞浠跺叏鏂扮増鍏嶈垂鍏嶆敞鍐屻傚叏鏂扮増钖岃姳椤鸿偂绁ㄨ蒋浠舵柊澧炲己澶у姛鑳斤细镊涓荤爷鍙戠殑闂璐㈤夎偂鍙婅嚜瀹氢箟阃夎偂锛岄梾璐㈤夎偂鏄鏂颁竴浠ｈ嚜铹惰瑷阃夎偂锛岃В鏋愯嚜铹惰瑷阃夊嚭镶＄エ銆 鏂板为氲揪淇℃ā寮忋
钖岃姳椤洪溃钖戝㈡埛鍙涓洪摱琛屻佽瘉鍒搞佷缭闄┿佸熀閲戙佺佸嫙銆侀珮镙°佹敛搴灭瓑琛屼笟鎻愪緵鏅鸿兘鍖栬В鍐虫柟妗堛傛ｅ湪𨰾揿𪾢镊崇敓娲汇佸尰鐤椼佹暀镶茬瓑镟村氶嗗烟銆
浜屻佸悓鑺遍‘涓氩姟浠嬬粛
娴欐睙镙告柊钖岃姳椤猴纸300033锛夌绣缁滀俊鎭镶′唤链夐檺鍏鍙稿墠韬涓轰笂娴锋牳鏂拌蒋浠舵妧链链夐檺鍏鍙革纴鎴愮珛浜2001骞8链24镞ャ备负浣垮叕鍙告湁镟村ソ镄勫彂灞旷幆澧冿纴浜2007骞5链堣縼鍧鍒版涩宸为珮鏂板尯銆
浼佷笟鐢辨槗宄ョ瓑锲涗釜镊铹朵汉鍜屼笂娴峰嚡澹濂ユ姇璧勫捝璇㈡湁闄愬叕鍙稿叡钖屾姇璧勭粍寤恒备紒涓氩湪鍖椾含銆佷笂娴枫佹繁鍦炽佹垚閮姐佽タ瀹夈佸搱灏旀花璁剧珛浜6瀹跺垎鏀链烘瀯锛屽苟𨰾ユ湁涓瀹跺叏璧勫瓙鍏鍙告涩宸炴牳鏂拌蒋浠舵妧链链夐檺鍏鍙革纸鎴愮珛浜1994骞达级銆
鍏鍙歌偂链538浜垮厓锛屼粠涓氢汉锻樼害4000浣欎汉锛屽叾涓镰斿彂浜哄憳鍜屾妧链链嶅姟浜哄憳鍗65%浠ヤ笂銆
鍏鍙告槸涓扑笟浠庝簨浜掕仈缃戠倰镶¤蒋浠剁殑寮鍙戙佹彁渚涚倰镶℃暟鎹鍜岃储缁忎俊鎭链嶅姟镄勯珮鏂版妧链浼佷笟锛屾枣涓嬫嫢链夊悓鑺遍‘閲戣瀺链嶅姟缃戙佸悓鑺遍‘鐖卞熀閲戞姇璧勭绣锛屽苟鎺ㄥ嚭浜嗕竴绯诲垪褰㈠纺涓板瘜銆佺嫭鍏风壒镩茬殑鍒涙柊澧炲兼湇锷★纴娣卞弹骞垮ぇ璇佸埜鍏鍙搞佽偂姘戠殑娆㈣繋銆
甯哥敤镶＄エ杞浠朵笅杞芥柟娉曟湁寰埚氾纴浣犲彲浠ュ湪锏惧害涓镓撅纴鎴栬呭湪杞浠剁殑瀹樻柟缃戠珯涓娄笅杞斤纴鎴栬呭湪涓嬭浇骞冲彴鎼灭储銆傛垜鐢ㄧ殑涔愯偂杞浠舵槸鍦ㄥ畼鏂圭绣绔欎箰镶＄绣涓娄笅杞界殑銆备綘濡傛灉涔熸兂涓嬭浇涔愯偂杞浠剁殑璇濓纴钖屾牱鍙浠ュ埌涔愯偂缃戜笂涓嬭浇銆

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

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

㈢ 如何下载股票历史数据

方法/步骤1:

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

方法/步骤2:

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

方法/步骤3:

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

方法/步骤4:

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

方法/步骤5:

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

注意事项

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

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

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

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

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

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

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

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

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

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

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

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

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

㈤ 同花顺怎样导出股票数据

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

㈥ 镐庝箞鎶娄竴鍙镶＄エ閲岀殑鏁版嵁瀵煎嚭𨱒ワ纻

鏂规硶鍜岃︾粏镄勬搷浣沧ラゅ备笅锛

1銆佺涓姝ワ纴鍦ㄨ＄畻链烘岄溃涓婃墦寮杞浠讹纴瑙佷笅锲撅纴杞鍒颁笅闱㈢殑姝ラゃ

㈦ 如何下载股票历史数据

方法/步骤1:

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

注意事项

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

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

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

这里笔者以同花顺软件为例：
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或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建立炒股系统的整套方法，请看后续内容。"