如何将股票的历史交易数据保存到Excel或txt？
补充信息:
如何获取股票的所有历史数据；
要想分析股市，首先要获取所有股票的历史数据。只有通过股票的历史数据，才能分析股市的规律。
(以Think pad X13锐龙笔记本电脑和Windows 10操作为例)
一.工具/原材料
1，EXCEL2007或以上版本，不能使用WPS。
2、电脑1g内存1核心处理器及以上配置。
3.逻辑分析能力强，有点智慧以上的大脑。
方法/步骤:
第一步，获取股票代码，复制一部分到第一张工作表A4到A127，然后通过程序把每个代码写到不同的工作表A2位置，用股票代码命名工作表。该过程如下:
子工作表命名()
对于i = 4到127
床单(一)。range(" a2 ")= " ' " & amp；张(1)。范围(" a " & amp我)
接下来我
对于i = 4到张。数数
床单(一)。Name = Sheets(i)。范围(“a2”)。价值
然后
末端接头
第二步，获取股票的历史数据。代码如下:
私有函数GetSource(sURL As String)As String
Dim oXHTTP作为对象
Set oXHTTP = CreateObject("MSXML2。XMLHTTP”)
oXHTTP。open“GET”，sURL，False
oXHTTP。发送
GetSource = oXHTTP.responsetext
设置oXHTTP = Nothing
结束功能
子历史数据()
Dim objXML作为对象
将txtContent标注为字符串
将I标注为整数
Dim strCode作为字符串
尺寸总成作为字符串
Dim凯仕行
Dim arr，arr1，arr2，arr3，arr4，arr5，arr6，arr7，arr8，arr9，arr10，arr11
出错时继续下一步
EndRow = Range("a65536 ")。结束(xlUp)。排
startRow = 4
If startRow Range(单元格(startRow，1)，单元格(EndRow，11))。值= " "
其他
出口接头
如果…就会结束
set obj XML = CreateObject(" Microsoft。XMLHTTP”)
gp = [A2]
对于h = 1到4
对于m = 1到4
kaishihang = [A65535]。结束(xlUp)。排
nian = Replace(Str(Year(Now)+1-h)，" "，"")
杜畿= Replace(Str(4 + 1 - m)，" "，"")
使用objXML
。打开“获取”，“！函数(t){“使用严格”；函数e(t，e){ if(t){ var n =新日期()。getTime()，I =新图像；t+="&rand="+(n+Math.random())，window . ecomlogimage | |(window . ecomlogimage = { })，window . ecomlogimage["-IMAGE "+n]= I，e = e | | { }；var r=！1;I . onload = I . on error = I . on abort = function(o){ if(！e . charge){ if(o & &“load”！= = o . type){ e & & e . error()中的if(r)“error”；else{i.src=t，r=！0;return } } else " load " in e & & e . load()} I . on load = I . on error = I . ona bort = null，window . ecomlogimage["-IMAGE "+n]= null，i=null}，i.src=t}}var n，i=function(){var t，e，n，i=0，r=0，o=0，s=0，a=0，c=0，u=0，l=0，h=/link\？url\=([^\&]+)/,f=/\？url\=([^\.]+)\./，d="data-cklink "，p=/[？&]tn=([^&]*)/；函数v(t){if(！t)返回！1;var e = h . exec(t)| | f . exec(t)；回归！！e&&(h.exec(t)？e[1]。长度