補充信息:
如何獲取股票的所有歷史數據；
要想分析股市，首先要獲取所有股票的歷史數據。只有通過股票的歷史數據，才能分析股市的規律。
(以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]。長度