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

1. 如何下载股票历史成交数据到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     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)， " "， "")     jidu = Replace(Str(4 + 1 - m)， " "， "")     With objXML         .Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + jidu + ""， 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， jidu 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     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)， " "， "")     jidu = Replace(Str(4 + 1 - m)， " "， "")     s1 = "http://quotes.money.163.com/trade/lsjysj_zhishu_000001.html?year=" + nian + "&season=" + jidu + ""     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建立炒股系统的整套方法，请看后续内容。"

2. 免费股票电子书下载！！！

都说不管你再怎么努力，如果你选错了方向也是白搭，放在股市上来说也很恰当，如果你最初就走上了岔路、看了没用的书籍，那么下面还想有收益就不有点不切实际了。进了股票圈后，我也看了很多书，理论和相联系，有些收益，还算是有点经验，所以给大家整理出我觉得最应该看的10本书，无论你是新手还是老手，都能从里面获得你想要的，请认真阅读。在分析之前，有个礼物要送给大家，整理好了今年各行业的龙头股名单，感兴趣的朋友可以看看：2021年最全一、股票书籍推荐前十名1、埃德温-勒菲弗的《股票大作手回忆录》这本书真的很不错，10个投资人中差不多有9个都会推荐你去看。概括这本书，主要讲一个人的故事：杰西-利佛莫，虽然利佛莫尔的时代离我们现在已经过去80多年，然而这一本书还是很火，这当中就是因为利佛莫尔对交易的理解远超同时代人，还超越了如今的不少人。另外萌新品读这本书，还是非常不错的，在这其中可以学到许多东西，学会学会敬畏市场、了解金融市场的风险，学会敬重市场，才可以在市场上好好挣钱。2、邱国鹭的《投资中最简单的事》不少人投资界的人都推崇这本书，可以说这属于价值投资中国版的最好解读。国内价投实战派的代表人物，其中就有邱果鹭，对大家有很大的帮助，他可以帮助大家理清投资的方向带着大家走向正确的路，让大家不会被带偏，从而也不会被追涨杀跌、高抛低吸的诱惑所吸引。除了这两本外还有后八名，篇幅较短，可以通过这里查看，会把这10本书打包发给你：10本股票入门必看书籍（在线阅读）二、股票分析工具推荐古语云，工欲善其事必先利其器，新手除了要看入门书籍，树立一个良好的投资理念外，能够分析股票的工具也要能够熟练掌握。一旦学会了使用优秀的股票分析工具，会非常有利于你加快股票估值的速度，掌握最新资讯，成为你的一大助力。这里分享9大炒股神器，全都是我亲自用过后感觉还不错的，专业、简便、数据充裕，让你发现股市的最新动态，非常推荐给大家：超实用炒股的九大神器，建议收藏

3. 股市游侠录txt全集下载

游侠录txt全集下载
链接：https://pan.baidu.com/s/1Vb_gkYqNdk1AuB_A4iwvWg 提取码：3qbc

　他极为困难的又挣扎着爬行了一会儿，呼吸重浊而短促，显见得他无论是受伤抑或是病了，都是非常严重的，严重的程度，已使他将要永远离开这人世了，虽然人世也并不是他值得留恋的。

　　此时若有任何一个武林中人看到他此时的情况，都会惊异得叫出声来的，也会不顾一切的来帮助他，只是此刻又有谁会看到他呢？

4. 我的提款机-中国股市的txt全集下载地址

链接:
 提取码: kba6
《我的提款机》是地震出版社出版的图书，作者是周佛郎著。

5. 世界上最会炒股的人的txt全集下载地址

链接:
 
提取码: oz9w
《世界上最会炒股的人》是2007年北京邮电学院出版社出版的图书，作者是李晓鹏。

6. 股票经典投资书籍或股票入门书籍哪里有电子书免费下载的？

都说如果选错了方向，就算再努力也是白费，这句话放在股市也一样，如果你最开始就选错了前进的方向，那么往后想获得收益就有点异想天开了。玩股票的这些年，我读了不少书，理论+实践，获得一些收入，可以说有不少感悟，因此我就概况了10本书是我觉得值得看的，不管是刚了解股市的小白还是老油条，都能够得到益处，请认真阅读。开始分享之前，先来给大家发个大礼包，整理好了今年各行业的龙头股名单，感兴趣的朋友可以看看：2021年最全一、股票书籍推荐前十名1、埃德温-勒菲弗的《股票大作手回忆录》这本书很值得去读，10个投资人中只有一个不推荐你读。杰西-利佛莫尔的故事是这本书的主要内容，虽说利佛莫尔的时代距离现在已过去了80多年，但这本书照样热销，这其中肯定是要原因的，是因为利佛莫尔对交易的理解远超同时代人，乃至于超过当今的许多人。另外萌新品读这本书，好处还很多的，可以学会敬畏市场、了解金融市场的风险，知晓怎么敬仰市场，才可以不断挣钱。2、邱国鹭的《投资中最简单的事》大多数投资界的人都推荐这本书，这在中国版的价值投资版中算是最好的解读。国内价投实战派的代表人物其中就有邱国鹭，帮助各位伙伴们清理投资路上的障碍物，顺利地走向正确的道路，这样以来就不会被带偏，更不会被追涨杀跌、高抛低吸的诱惑所吸引。另外的后八名，由于篇幅束缚，想看的朋友点击下方链接，会把这10本书打包发给你：10本股票入门必看书籍（在线阅读）二、股票分析工具推荐有句名言这样说，工欲善其事必先利其器，小白不光要浏览一些引进门的书籍，树立正确的投资理念外，能够分析股票的工具也要能够熟练掌握。如果学会了使用好用的能够帮助人们分析股票的股票分析工具，能够帮你迅速提升股票估值速度，察觉最新进展，让你事半功倍。因此学姐要给大家介绍9大炒股神器，全部都都是我自己用过的，专业、简洁、数据丰富，让你了解股市的最新发展情况，不容错过：超实用炒股的九大神器，建议收藏

7. 《我的提款机中国股市》最新txt全集下载

链接:
 提取码: kba6
《我的提款机》是地震出版社出版的图书，作者是周佛郎著。

8. 《我的提款机中国股市》txt全集下载

链接:
 提取码: kba6
《我的提款机》是地震出版社出版的图书，作者是周佛郎著。