獲取股票基本數據json

『壹』 想問一下哪裡有A股實時交易數據的API介面

我找到一個專業提供股票數據API介面的
台，麥蕊智數Ww.mairui..club),這個數據接D平台的介面相當完善，提供的介面幾乎覆蓋了當前股票的所有數據，這個平台的所有數據介面統一使用的http調用，數據統一以json格式返回，實際使用起來非常方便，接入相當簡單，最最最關鍵的是，在這個平台上不需要注冊用戶就可以直接領取一個免費的icence證書就可以立即使用了，免費的
介面licence證書每日限制請求不超過500次，但是可以終身使用，我因為實際需要買了一個包年版，只要188元，1年內沒有任何限制，1年過期後還可以繼續永久使用，但是每天限量1萬次，基本能滿我當前的需求，個人感覺性價比非常高了，當然還有其他版本可以購買，這要看個人需求了，如果每日請求量特別大，可以直接688購買一個鑽石版，
終身不限請求數據。最近已經用了兩個多月，感覺各方面都不錯，分享
給大家，希望能夠對大家有用！

『貳』 如何下載股票數據

網路：大富翁數據中心，可找到歷史股票期貨數據下載
大富翁數據中心可以提供滬深實時行情，股指商品期貨實時行情；每日收盤後數據下載，如：逐筆數據（每秒可能多條明細），分筆數據（每三秒一條明細），專業財務數據，日線數據，分鍾數據等。
歷史專業財務，股本結構，分紅送配等數據，股票逐筆數據，股票，期貨，外匯歷史分筆數據，各任意周期的分鍾數據（如1,3,5,7,10,15,30,60等任意）。

『叄』 鑲＄エ瀹炴椂鏁版嵁鎺ュ彛

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛瑕佹庝箞鍐欙紝鎵嶆洿鏍囧噯瑙勮寖錛熶笅闈㈠垎浜銆愯偂紲ㄥ疄鏃舵暟鎹鎺ュ彛銆戠浉鍏蟲柟娉曠粡楠岋紝渚涗綘鍙傝冨熼壌銆

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛

瑕佽幏鍙栬偂紲ㄥ疄鏃舵暟鎹鎺ュ彛錛屽彲浠ュ弬鑰冧互涓嬫ラわ細

1.鎵撳紑鑲＄エ浜ゆ槗杞浠躲

2.杈撳叆瑕佹煡璇㈢殑鑲＄エ浠ｇ爜鎴栧悕縐幫紝鐐瑰嚮鈥滄煡璇⑩濇寜閽銆

3.鍦ㄦ煡璇㈢粨鏋滈〉闈錛岀偣鍑燴滃垎鏃垛濇垨鈥淜綰庫濈瓑閫夐」錛屾煡鐪嬩笉鍚屾椂闂存電殑鑲＄エ浠鋒牸鏁版嵁銆

4.濡傛灉闇瑕佽幏鍙栧疄鏃舵暟鎹錛屽彲浠ョ偣鍑燴滃疄鏃惰屾儏鈥濇垨鈥滃疄鏃朵氦鏄撯濈瓑閫夐」錛屾煡鐪嬪疄鏃剁殑鑲＄エ浠鋒牸銆佹定璺屽箙銆佹垚浜ら噺絳変俊鎮銆

5.涓嶅悓鐨勮偂紲ㄤ氦鏄撹蔣浠跺彲鑳芥彁渚涗笉鍚岀殑鏁版嵁鎺ュ彛錛屽傛灉闇瑕佽幏鍙栨洿鍔犺︾粏鐨勬暟鎹淇℃伅錛屽彲浠ユ煡鐪嬭ヨ蔣浠剁殑甯鍔╂枃妗ｆ垨鑱旂郴璇ヨ蔣浠剁殑瀹㈡湇浜哄憳銆

闇瑕佹敞鎰忕殑鏄錛岃偂紲ㄤ氦鏄撳叿鏈夐庨櫓錛屽緩璁鍦ㄨ繘琛岃偂紲ㄦ姇璧勬椂璋ㄦ厧鍐崇瓥銆

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛鍒嗘瀽

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛鏄涓涓闈炲父澶嶆潅鍜屽氭牱鍖栫殑緋葷粺錛屽畠闇瑕佸勭悊澶ч噺鐨勬暟鎹銆佹彁渚涘疄鏃剁殑鏁版嵁鏇存柊浠ュ強鎻愪緵澶氱嶆暟鎹鏍煎紡鐨勮緭鍑恆備笅闈㈡槸涓浜涜偂紲ㄥ疄鏃舵暟鎹鎺ュ彛鐨勫垎鏋愶細

1.鏁版嵁鏉ユ簮錛氳偂紲ㄥ疄鏃舵暟鎹鎺ュ彛鐨勬暟鎹鏉ユ簮涓昏佹槸浜ゆ槗鎵鐨勮屾儏鏁版嵁錛屽寘鎷鑲＄エ鐨勫疄鏃惰屾儏銆佸巻鍙茶屾儏銆佷氦鏄撴暟鎹絳夈傛ゅ栵紝涓浜涙帴鍙ｈ繕鍙鑳戒粠絎涓夋柟鏁版嵁鎻愪緵鍟嗐佹柊闂葷綉絝欑瓑鑾峰彇鏁版嵁銆

2.鏁版嵁澶勭悊錛氳偂紲ㄥ疄鏃舵暟鎹鎺ュ彛闇瑕佸規帴鏀跺埌鐨勬暟鎹榪涜屽勭悊錛屽寘鎷瑙ｆ瀽鏁版嵁銆佸勭悊寮傚父鎯呭喌銆佽繃婊ゆ棤鐢ㄦ暟鎹絳夈傚勭悊鍚庣殑鏁版嵁鍙浠ヤ互鍚勭嶆牸寮忚緭鍑猴紝濡侰SV銆丣SON銆乆ML絳夈

3.鏁版嵁鏇存柊錛氳偂紲ㄥ疄鏃舵暟鎹鎺ュ彛闇瑕佹彁渚涘疄鏃剁殑鏁版嵁鏇存柊錛屽嵆姣忕掗挓鎴栨洿鐭鐨勬椂闂村唴鏇存柊涓嬈℃暟鎹銆備負浜嗗疄鐜拌繖涓鐩鏍囷紝鎺ュ彛鍙鑳介渶瑕佸疄鏃朵粠浜ゆ槗鎵鑾峰彇鏁版嵁鎴栬呬嬌鐢ㄧ紦瀛樻妧鏈銆

4.鏁版嵁鏍煎紡杈撳嚭錛氳偂紲ㄥ疄鏃舵暟鎹鎺ュ彛闇瑕佹彁渚涘氱嶆暟鎹鏍煎紡鐨勮緭鍑猴紝濡侰SV銆丣SON銆乆ML絳夈備笉鍚岀殑鏁版嵁鏍煎紡閫傜敤浜庝笉鍚岀殑搴旂敤鍦烘櫙錛屽傛暟鎹鍒嗘瀽宸ュ叿銆佸墠絝灞曠ず絳夈

5.瀹夊叏鎬э細鑲＄エ瀹炴椂鏁版嵁鎺ュ彛闇瑕佷繚璇佹暟鎹鐨勫畨鍏ㄦс傝繖鍖呮嫭闃叉㈡暟鎹娉勯湶銆侀槻姝㈡伓鎰忔敾鍑葷瓑銆備竴浜涙帴鍙ｈ繕鍙鑳介渶瑕佸規暟鎹榪涜岄獙璇佸拰榪囨護錛屼互闃叉涓嶅悎娉曠殑鏁版嵁杈撳叆銆

6.鍙鎵╁睍鎬э細鑲＄エ瀹炴椂鏁版嵁鎺ュ彛闇瑕佸叿澶囧彲鎵╁睍鎬э紝浠ラ傚簲鏈鏉ヤ笟鍔＄殑鍙戝睍銆傝繖鍖呮嫭澧炲姞鏁版嵁婧愩佸炲姞鏁版嵁鏇存柊棰戠巼銆佸炲姞鏁版嵁杈撳嚭鏍煎紡絳夈

鎬諱箣錛岃偂紲ㄥ疄鏃舵暟鎹鎺ュ彛鏄涓涓澶嶆潅鐨勭郴緇燂紝闇瑕佸勭悊澶ч噺鐨勬暟鎹錛屾彁渚涘疄鏃剁殑鏁版嵁鏇存柊錛屼互鍙婃彁渚涘氱嶆暟鎹鏍煎紡鐨勮緭鍑恆傚悓鏃訛紝闇瑕佷繚璇佹暟鎹鐨勫畨鍏ㄦу拰鍙鎵╁睍鎬с

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛鏈夊摢浜

鎻愪緵鑲＄エ瀹炴椂鏁版嵁鐨勬帴鍙ｆ湁寰堝氾紝浠ヤ笅鏄涓浜涘父鐢ㄧ殑鎺ュ彛錛

1.闆鐞傾PI錛氭彁渚涜偂紲ㄥ疄鏃惰屾儏銆佸巻鍙茶屾儏銆佽儲鍔℃暟鎹銆佷氦鏄撴帴鍙ｇ瓑銆

2.涓滄柟璐㈠瘜API錛氭彁渚涜偂紲ㄥ疄鏃惰屾儏銆佸巻鍙茶屾儏銆佽儲鍔℃暟鎹銆佷氦鏄撴帴鍙ｇ瓑銆

3.瀵岄旂墰鐗汚PI錛氭彁渚涜偂紲ㄥ疄鏃惰屾儏銆佸巻鍙茶屾儏銆佹柊闂昏祫璁銆佷氦鏄撴帴鍙ｇ瓑銆

4.鋩傝殎閲戣瀺API錛氭彁渚涜偂紲ㄥ疄鏃惰屾儏銆佸巻鍙茶屾儏銆佽儲鍔℃暟鎹銆佷氦鏄撴帴鍙ｇ瓑銆

5.鏋佹櫤鏁版嵁API錛氭彁渚涜偂紲ㄥ疄鏃惰屾儏銆佸巻鍙茶屾儏銆佹柊闂昏祫璁銆佷氦鏄撴帴鍙ｇ瓑銆

6.閲戣瀺鐣孉PI錛氭彁渚涜偂紲ㄥ疄鏃惰屾儏銆佸巻鍙茶屾儏銆佽儲鍔℃暟鎹銆佷氦鏄撴帴鍙ｇ瓑銆

浠ヤ笂浠呮槸閮ㄥ垎鑲＄エ鏁版嵁鎺ュ彛錛屽疄闄呭競鍦轟笂榪樻湁璁稿氬叾浠栨帴鍙ｅ彲渚涢夋嫨錛屾偍鍙浠ユ牴鎹鑷宸辯殑闇奼傞夋嫨閫傚悎鐨勬帴鍙ｃ

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛鍖呮嫭鍝浜

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛鍖呮嫭浠ヤ笅鍐呭癸細

1.K綰垮浘錛氭樉紺鴻偂紲ㄧ殑鍘嗗彶浠鋒牸鍜屼氦鏄撲俊鎮銆

2.琛屾儏鎶ヤ環錛氭樉紺哄綋鍓嶈偂紲ㄧ殑瀹炴椂淇℃伅錛屽傝偂紲ㄤ唬鐮併佽偂紲ㄥ悕縐般佹渶鏂版垚浜や環鏍箋佹垚浜ら噺絳夈

3.涔板崠鍔涢噺錛氭樉紺哄綋鍓嶈偂紲ㄧ殑涔扮洏鍜屽崠鐩樼殑濮旀墭浠鋒牸鍜屾暟閲忋

4.緇煎悎鎸囨爣錛氬寘鎷澶氱嶆寚鏍囷紝濡侻ACD銆並DJ銆丷SI絳夛紝鐢ㄤ簬鍒嗘瀽鑲＄エ鐨勮秼鍔垮拰瓚呬拱瓚呭崠鎯呭喌銆

5.鍏鍙告柊闂伙細鏄劇ず鏈夊叧璇ヨ偂紲ㄧ殑鏈鏂版柊闂誨拰鍏鍛娿

6.鍏鍛婁俊鎮錛氭樉紺烘湁鍏蟲暣涓琛屼笟鍜岃偂紲ㄥ競鍦虹殑鍏鍛婂拰鏂伴椈銆

7.鑷瀹氫箟鎸囨爣錛氱敤鎴峰彲浠ユ牴鎹鑷宸辯殑闇奼傝嚜瀹氫箟鎸囨爣錛岀敤浜庡垎鏋愯偂紲ㄧ殑瓚嬪娍鍜岃秴涔拌秴鍗栨儏鍐點

8.璐㈠姟鏁版嵁錛氭樉紺哄叕鍙哥殑璐㈠姟鐘跺喌鍜屼笟緇╋紝濡傛敹鍏ャ佸埄娑︺佽祫浜у拰璐熷虹瓑銆

9.琛屼笟鍒嗘瀽錛氭樉紺鴻ヨ偂紲ㄦ墍灞炶屼笟鐨勬暣浣撴儏鍐碉紝濡傝屼笟瓚嬪娍銆佽屼笟瑙勬ā銆佽屼笟絝炰簤鏍煎矓絳夈

10.鍏ㄧ悆鎸囨暟錛氭樉紺哄叏鐞冧富瑕佽偂紲ㄥ競鍦虹殑鎸囨暟錛屽傞亾鐞兼柉宸ヤ笟騫沖潎鎸囨暟銆佷笂璇佺患鎸囥佺撼鏂杈懼厠鎸囨暟絳夈

浠ヤ笂鏄鑲＄エ瀹炴椂鏁版嵁鎺ュ彛鐨勪富瑕佸唴瀹癸紝鍏蜂綋鎺ュ彛鍜屾暟鎹鍐呭瑰彲鑳戒細鍥犱笉鍚岀殑鑲＄エ浜ゆ槗騫沖彴鍜屾暟鎹渚涘簲鍟嗚屾湁鎵涓嶅悓銆

鑲＄エ瀹炴椂鏁版嵁鎺ュ彛奼囨

鑾峰彇鑲＄エ瀹炴椂鏁版嵁鐨勬柟寮忔湁寰堝氱嶏紝浠ヤ笅鏄涓浜涘父鐢ㄧ殑鎺ュ彛錛

1.瀹樻柟API錛氬ぇ澶氭暟璇佸埜鍏鍙擱兘鎻愪緵浜嗗畼鏂笰PI錛屽彲浠ョ敤鏉ヨ幏鍙栧疄鏃剁殑鑲＄エ鏁版嵁銆備緥濡傦紝閫氳揪淇°佸ぇ鏅烘収銆佸悓鑺遍『絳夈

2.絎涓夋柟API錛氫篃鏈変竴浜涚涓夋柟鍏鍙告彁渚涗簡鑲＄エ鏁版嵁API鏈嶅姟錛屽傛柊嫻璐㈢粡銆佷笢鏂硅儲瀵屻佷竾寰楃瓑銆

3.API鑱氬悎鍣錛氭湁涓浜汚PI鑱氬悎鍣ㄥ彲浠ラ泦鎴愬氫釜API錛屼緥濡侽penAPI錛屾彁渚涙洿鍔犲叏闈㈢殑鑲＄エ鏁版嵁鏈嶅姟銆

鏃犺洪夋嫨鍝縐嶆柟寮忥紝閮介渶瑕佷粩緇嗕簡瑙ｇ浉鍏矨PI鐨勪嬌鐢ㄦ潯嬈懼拰闄愬埗錛屼互紜淇濆湪浣跨敤榪囩▼涓涓嶄細榪濆弽浠諱綍瑙勫畾銆

鏂囩珷浠嬬粛灝卞埌榪欎簡銆

『肆』 易語言怎麼讀取實時股票數據

易語言讀取實時股票數據方法如下：
1、獲取API介面：可以到證券交易所神此纖、財經網站或第三方數據服務商申請獲取股扒搏票行情數據的API介面。
2、使用網路編程函數進行數據訪問：使用易語言的網路編程相關函數，如HttpGet、Wininet_OpenURL等，訪問API介面獲取實時股票行情數據。
3、解析數據：獲取到的數據可能是JSON或XML格式的數據，需要使用相關函數對數據進行解析，取出需要的數據。
4、顯示數據：將解析得到的數據顯示在界面上，以便用戶游仿查看。

『伍』 如何下載股票歷史成交數據到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建立炒股系統的整套方法，請看後續內容。"

『陸』 股票數據介面怎麼獲取一般是怎麼收費的

股票數據介面去證券交易所買的，一年服務費千萬。
LEVEL-2行情，數據比較清楚，並且比較全。資金流向，十檔盤口，買賣提示，等等，具體可以看大智慧或同花順LEVEL-2的相關介紹，他們的比較權威，比較全面。
股票行情數據是由交易所有償提供的，一般是給券商、行情分析軟體供應商等，且不得轉發從事商業服務。股票數據的獲取目前有如下兩種方法可以獲取:http/javascript介面取數據或者web-service介面。
(6)獲取股票基本數據json擴展閱讀：
一、股票軟體一般都提供了介面，例如通達信、同花順、大智慧，這些軟體裡面，都有公式系統，這個公式系統，就是介面。你可以參考軟體裡面的別的公式，編寫自己的公式，這樣就可以得到相應的數據了。
如果是機構，有專門提供這種API介面的。例如微盛的金融實時行情API介面。但這種方式，需要程序員才搞得懂，一般人用不起來。
二、股票實時行情，可以通過兩個方法來進行查看：
第一種，在網路搜索頁面直接輸入股票代碼，如：000717，網路輸入後，即可在搜索結果中看到，其中分時，就是該股票在當天的實時走向。
第二種，通過炒股軟體，如東財，同花順等，在開啟後，直接輸入，股票代碼，如600854，點擊回車。進入的第一個頁面就是該股票在當天的實時行情。
三、PP材料的成型溫度在160-220℃，注塑成型時要將模具溫度恆定在這個范圍。油溫機具有加熱冷卻功能，其控溫范圍分為常溫到180℃，常溫到300℃，常溫到300℃以上等多種控溫類型。水冷機其本身只有冷卻功能，沒有加熱功能，控溫時達不到160-220℃。另外，還有一種水溫機，其同時具有加熱冷卻功能，其控溫范圍分為常溫到98℃，常溫到120℃，常溫到150℃，常溫到180℃。綜上所述，PP材料注塑應該選用油溫機，而且其控溫范圍需在常溫到300℃范圍

『柒』 股市數據如何獲取

股市的數據通過炒股軟體，每天就可以自動收取

『捌』 如何下載股票歷史數據

方法/步驟1:

登錄股票軟體，點擊左上角系統，選擇子菜單下面的盤後數據下載。

注意事項

系統下載的數據時間段越長，能夠看到的數據就越多，越能幫助全面分析。

此方法只適用於部分股票分析軟體。