股票價格數據在哪兒可以下載

『壹』 什麼網址或軟體能下載股票每日的交易數據啊

同花順軟體就可以下載股票每日的交易數據。
股票交易是指股票投資者之間按照市場價格對已發行上市的股票所進行的買賣。股票公開轉讓的場所首先是證券交易所。中國大陸目前僅有兩家交易所，即上海證券交易所和深圳證券交易所。
股票市場也稱為二級市場或次級市場，是股票發行和流通的場所，也可以說是指對已發行的股票進行買賣和轉讓的場所。股票的交易都是通過股票市場來實現的。一般地，股票市場可以分為一、二級，一級市場也稱之為股票發行市場，二級市場也稱之為股票交易市場。 股票是一種有價證券。有價證券除股票外，還包括國家債券、公司債券、不動產抵押債券等等。國家債券出現較早，是最先投入交易的有價債券。隨著商品經濟的發展，後來才逐漸出現股票等有價債券。因此，股票交易只是有價債券交易的一個組成部分，股票市場也只是多種有價債券市場中的一種。很少有單一的股票市場，股票市場不過是證券市場中專營股票的地方。

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

方法/步驟1:

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

方法/步驟2:

在「滬深日線」欄目下，將日線和實時行情選項打勾。

方法/步驟3:

點擊第一個日期後面的向下小三角，設置起始日期。

方法/步驟4:

點擊第二個日期後面的向下小三角，設置結束日期。

方法/步驟5:

日期設置完畢後，點擊開始下載。下載完成後你想要的時間段的日K線數據就已經保存到電腦裡面了。如果還需要下載其他類型的數據，再分別選擇下載。

注意事項

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

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

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

方法/步驟1:

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

注意事項

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

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

『肆』 濡備綍涓嬭澆鑲＄エ鍏ㄥ勾鏁版嵁

絎涓姝ワ細涓嬭澆鍚岃姳欏哄畨瑁呭湪鐢佃剳涓婏紝鐒跺悗鎵撳紑杞浠訛紝閫夋嫨鈥滆嚜閫夎偂鈥濓紝姣斿傛垜娣誨姞浜嗗鉤瀹夐摱琛岋細

絎浜屾ワ細鍦ㄨ佸煎嚭鏁版嵁鐨勮偂紲ㄤ笂鍙抽敭錛岄夋嫨鏁版嵁瀵煎嚭

絎涓夋:閫夋嫨excel鏂囦歡鐨勫煎嚭鍦板潃錛岄夋嫨鎵闇鏁版嵁鑼冨洿鏃ユ湡錛岀偣鍑諱笅涓姝ュ氨濂戒簡

緇撴灉錛氭墦寮excel鏂囦歡濡備笅錛

鍙﹀栦竴涓綆鍗曟柟娉曪紝鎴戜箣鍓嶄篃鏃╀簡濂戒箙鑲＄エ鏁版嵁錛屽悓鑺遍『鐨勬暟鎹涓嶅叏錛屾妧鏈鍒嗘瀽榪樻槸闇瑕佹洿鍏ㄧ殑鏁版嵁銆傛湁涓 gong&zhong&hao鍙浠ユ瘡澶╅嗗彇鏈鏂版暟鎹-鍗庢櫙鑲″競鏁版嵁錛屼綘鍙浠ヨ瘯璇

鍝閲屽彲浠ヤ笅杞借偂紲ㄥ巻鍙叉暟鎹錛

鍙浠ヤ笅杞藉悓鑺遍『涔拌偂紲ㄣ

1銆佹墦寮鍚岃姳欏篈PP銆

2銆佽繘鍏ラ〉闈涓錛岄夋嫨鍙充笅瑙掆滀氦鏄撯濄

3銆佺櫥闄嗚嚜宸辯殑璐︽埛銆

4銆佽繘鍏ラ〉闈錛岄夋嫨鈥滀拱鍏モ濄

5銆佽緭鍏ヨ嚜宸辨兂瑕佷拱鍏ョ殑鑲＄エ浠ｇ爜錛屼篃鍙浠ュ湪琛屾儏欏甸潰閫夋嫨鑲＄エ錛屽彲鏍規嵁鑲＄エ浠鋒牸榪涜屾帓搴忥紝閫夋嫨鑷宸辨兂瑕佷拱鍏ョ殑鑲＄エ鍗沖彲銆

6銆侀夋嫨璐涔扮殑鏁伴噺錛岀偣鍑葷澶存墍鎸囧勭殑鈥滀拱鍏モ濆氨鍙浠ヤ簡銆

鐜板湪寰堝皯鏈夎兘鐩存帴涓嬭澆鐨勪簡錛岄兘鍋氶檺鍒朵簡銆傝偂紲ㄥ巻鍙叉暟鎹浠ュ墠鐨勭倰鑲¤蔣浠跺熀鏈閮芥湁錛屾參鎱㈢殑閮藉彉浜

鑲＄エ鍘嗗彶鏁版嵁涓嬭澆

榪欓噷涓嶆㈠彲浠ヤ笅杞借偂紲ㄧ殑鍘嗗彶鎴愪氦浜ゆ槗鏁版嵁錛岃繕鏈夊悇縐嶆寚鏁扮殑鍘嗗彶鏁版嵁錛屾瘮濡傛勃娣300銆佹埧鍦頒駭鎸囨暟絳夌瓑閮芥湁鐨勩

鐒跺悗鍩洪噾銆佸彲杞鍊轟篃閮芥湁錛屼笅杞藉緢鏂逛究銆傚～涓鑲＄エ浠ｇ爜銆侀偖綆憋紝絳夌潃鏀舵暟鎹灝辮屼簡銆

『伍』 閫氳揪淇¤偂紲ㄦ暟鎹涓嬭澆涓庡煎嚭璇﹁В

閫氳揪淇℃槸涓嬈懼箍娉涗嬌鐢ㄧ殑鑲＄エ鍒嗘瀽杞浠訛紝瀹冩彁渚涗簡涓板瘜鐨勮偂紲ㄦ暟鎹涓嬭澆涓庡煎嚭鍔熻兘銆傝繖浜涘姛鑳戒嬌寰楃敤鎴瘋兘澶熸柟渚垮湴鑾峰彇鎵闇鐨勮偂紲ㄦ暟鎹錛屼互渚胯繘琛屾洿娣卞叆鐨勫垎鏋愬拰鐮旂┒銆

棣栧厛錛岄氳揪淇℃彁渚涗簡澶氱嶈偂紲ㄦ暟鎹涓嬭澆鐨勬柟寮忋傜敤鎴峰彲浠ラ氳繃杈撳叆鑲＄エ浠ｇ爜鎴栧悕縐版潵媯緔㈠苟涓嬭澆鎵闇鐨勮偂紲ㄦ暟鎹銆傛ゅ栵紝閫氳揪淇¤繕鏀鎸佽嚜瀹氫箟鏁版嵁涓嬭澆錛岀敤鎴峰彲浠ユ牴鎹鑷宸辯殑闇奼傝劇疆涓嬭澆鍙傛暟錛屼緥濡傛椂闂磋寖鍥淬佹暟鎹綾誨瀷絳夈傝繖浣垮緱鐢ㄦ埛鑳藉熺伒媧誨湴鑾峰彇鎵闇鐨勮偂紲ㄦ暟鎹錛屾弧瓚充笉鍚岀殑鍒嗘瀽闇奼傘

鍦ㄥ煎嚭鑲＄エ鏁版嵁鏂歸潰錛岄氳揪淇′篃鎻愪緵浜嗗氱嶅煎嚭鏍煎紡鍜岄夐」銆傜敤鎴峰彲浠ュ皢涓嬭澆鐨勮偂紲ㄦ暟鎹瀵煎嚭涓篍xcel銆丆SV絳夊父瑙佹牸寮忥紝鏂逛究鍚庣畫鐨勬暟鎹澶勭悊鍜屽垎鏋愩傚悓鏃訛紝閫氳揪淇¤繕鏀鎸佽嚜瀹氫箟瀵煎嚭瀛楁碉紝鐢ㄦ埛鍙浠ユ牴鎹鑷宸辯殑鍒嗘瀽闇奼傞夋嫨闇瑕佸煎嚭鐨勬暟鎹瀛楁碉紝鎻愰珮鏁版嵁澶勭悊鐨勬晥鐜囥

涓句釜渚嬪瓙錛屽亣璁句竴涓鐢ㄦ埛鎯寵佷笅杞藉苟瀵煎嚭鏌愬彧鑲＄エ鐨勫巻鍙蹭環鏍兼暟鎹銆備粬鍙浠ュ湪閫氳揪淇′腑杈撳叆璇ヨ偂紲ㄧ殑浠ｇ爜鎴栧悕縐幫紝閫夋嫨闇瑕佷笅杞界殑鏃墮棿鑼冨洿鍜屾暟鎹綾誨瀷錛岀劧鍚庣偣鍑諱笅杞芥寜閽銆備笅杞藉畬鎴愬悗錛屼粬鍙浠ュ皢鏁版嵁瀵煎嚭涓篍xcel鏍煎紡錛屽苟鍦‥xcel涓瀵規暟鎹榪涜岃繘涓姝ョ殑鍒嗘瀽鍜屽勭悊銆

鎬諱箣錛岄氳揪淇＄殑鑲＄エ鏁版嵁涓嬭澆涓庡煎嚭鍔熻兘涓虹敤鎴鋒彁渚涗簡渚垮埄鐨勬暟鎹鑾峰彇鍜屽勭悊鏂瑰紡錛屾弧瓚充簡涓嶅悓鐢ㄦ埛鐨勯渶奼傘傞氳繃鐏墊椿榪愮敤榪欎簺鍔熻兘錛岀敤鎴峰彲浠ユ洿濂藉湴榪涜岃偂紲ㄥ垎鏋愬拰鐮旂┒錛屼負鎶曡祫鍐崇瓥鎻愪緵鏈夊姏鐨勬敮鎸併

『陸』 鑲＄エ鏁版嵁鍦ㄥ摢閲岃兘鎵懼埌錛

鐐掕偂鏈嬪弸搴旇ュ規暟鎹鎰熷埌鐒﹁檻錛屾棤璁烘槸甯傚満鏁版嵁銆佷氦鏄撴暟鎹銆佸悇綾繪姤鍛婃暟鎹閮芥槸涓涓澶寸柤鐨勯棶棰橈紝棣栧厛錛岃偂紲ㄦ暟鎹鐨勯噺涓鑸閮芥瘮杈冨ぇ銆備互涓鍙鑲＄エ涓轟緥錛屼竴涓鏈堥氬父浼氭湁20澶╁乏鍙崇殑甯傚満鍜屼氦鏄撴暟鎹錛屽傛灉涓婂競5騫存垨10騫達紝鏁版嵁閲忔槸闈炲父澶х殑銆傝繕鏈夊垎鏋愯瘎綰ф姤鍛娿佸叕鍙哥殑鍚勭嶅叕鍛婄瓑錛屾暟鎹浜旇姳鍏闂ㄣ傚氨榪欎竴鐐硅岃█錛屼竴涓鍒嗘瀽甯堣佽幏寰楄繖浜涙暟鎹鏄鐩稿綋鍥伴毦鐨勩傚叾嬈★紝鉶界劧涓鑸緇忕邯銆佹湇鍔℃満鏋勯兘浼氭湁榪欎簺鏁版嵁錛屼絾鏄鐢變簬鏁版嵁閲忓ぇ鑰屼笉鎻愪緵涓嬭澆錛岃櫧鐒跺彲浠ョ湅鍒頒絾涓嶈兘涓嬭澆錛屽垎鏋愯搗鏉ワ紝鏇村氱殑浜鴻塊棶娌℃湁闂ㄣ傚綋鐒訛紝瀵逛簬鍏鍙告垨鏈烘瀯鐨剆e鏁版嵁闈炲父綆鍗曪紝鍥犱負浠栦滑鏈変笓闂ㄧ殑浜哄憳鏉ヨ幏鍙栵紝鎵浠ヨ繖浜涙暟鎹閫氬父鏄鏀惰垂鐨勩
鑲＄エ鏁版嵁鍙浠ュ湪浠ヤ笅騫沖彴鎵懼埌錛岃偂紲ㄥ競鍦轟笂鐨勪竴涓涓嬭澆緗戠珯錛屸渋闂璐㈡櫤鑳芥姇欏鋸濊繖鏄涓涓涓撻棬鐢ㄦ潵涓嬭澆鏁版嵁緗戠珯鐨勮偂紲ㄥ競鍦猴紝浣跨敤鐩稿規瘮杈冨嶆潅錛屼絾鍦ㄦ暟鎹涓鍙栬儨錛岃屼笖鍏嶈垂銆 Choice閲戣瀺緇堢疻ind鏄鐩鍓嶆渶涓繪祦鐨勬暟鎹鏉ユ簮錛屽埜鍟嗗熀鏈涓婇兘鍦ㄤ嬌鐢ㄣ傚湪鏁版嵁鍐呭逛笂宸鍒涓嶅ぇ錛岃屼笖浠栦滑闇瑕佷負姝や粯璐廣傛垚鏈姣旇緝楂橈紝鎵浠ヤ笉寤鴻璐涔般備釜浜烘暟鎹婧愭槸榪欎袱縐嶅伐鍏鳳紝鍔犱笂鐢ㄤ簬鏁版嵁澶勭悊鐨凟xcel錛岀浉瀵瑰師濮嬩簺銆傚氨鍍忚偂紲ㄨ蔣浠朵細鏈夋暟鎹涓嬭澆鍔熻兘錛屾彁渚涙洿璇︾粏鐨勪俊鎮錛岃繕浼氭彁渚涗笓涓氱殑宸ュ叿濡傜數瀛愯〃鏍兼彃浠訛紝涓嬭澆鏁版嵁鐨勬晥鐜囦細鏇撮珮錛屼絾榪欑被淇℃伅杞浠惰佹敹璐廣
涓鑸鏉ヨ達紝鑲＄エ鐨勯夋嫨鍒嗕負涓や釜姝ラわ紝鐩稿叧鐨勬暟鎹涓嬭澆鍜屾暟鎹澶勭悊銆傚湪鏂規硶瀛︿腑璇︾粏鍒楀嚭浜嗘瘡縐嶉夎偂鏂規硶瀛﹂渶瑕佷笅杞界殑鏁版嵁錛屼綘鍙浠ュ湪緗戠珯涓婁笅杞姐傚湪榪欓噷錛屾垜鍒嗕韓涓縐嶇洿鎺ラ『鎵嬮夎偂鐨勬柟娉曘傛湁涓涓閫夎偂鍔熻兘鍦ㄥ啿媧桺C鐗堟湰涓,鍙浠ヨ劇疆鍚勭嶅悇鏍風殑閫夎偂鏁版嵁鐐瑰嚮鍚,鍙浠ョ洿鎺ヨ緭鍏ョ瓫閫夋爣鍑嗐
渚嬪傛垜闆嗕腑鍦ㄥ綋鍓嶇殑鑲＄エ甯傚満涓婂摢浜涜偂紲ㄧ殑浼板肩湡鐨勫緢浣庣殑鑲＄エ鍜岃緭鍏ヤ互涓嬬殑閫夎偂鏍囧噯錛屼粠3676鍙鑲＄エ涓閫夋嫨浜60鍙錛屽湪浣庝及鍊肩殑鑲＄エ鍒楄〃涓鎴戜竴鑸鍛嗕笉鍒頒笁涓鏈堝氨浼氫笂鍗囩誨紑錛屽湪涓鎵規柊鑲＄エ榪涙潵錛岃偂紲ㄦ睜涓鐨勪釜鑲¤秺澶氾紝褰撳墠鐨勮偂甯備及鍊煎氨瓚婁綆錛岃繖縐嶆柟娉曚竴搴﹀彧浜х敓浜嗗皯鏁頒釜鑲°傚彲浠ョ瓫閫夊浘琛ㄤ腑鐨勬墍鏈夋寚鏍囧拰鏁版嵁錛屽苟鑷宸辯悊瑙ｄ負浠涔堣佽繖鏍峰仛銆

『柒』 鍚岃姳欏烘庝箞涓嬭澆涓鑲＄殑鎵鏈夊巻鍙叉暟鎹錛

鍚岃姳欏轟笅杞戒釜鑲＄殑鎵鏈夊巻鍙叉暟鎹錛
1銆侀栧厛鍒囨崲鍒拌佷笅杞芥暟鎹鐨勮偂紲↘綰垮艦鎬侊紝鎸夆淔1鈥濊繘鍏モ滄棩綰挎煇鏌愯偂紲ㄥ巻鍙叉垚浜も濓紱
2銆佺偣鍑婚紶鏍囧彸閿->鏁版嵁瀵煎嚭->瀵煎嚭鎵鏈夋暟鎹->鍦ㄢ滆烽夋嫨瀵煎嚭鐨勭被鍨嬧濅腑閫夋嫨excel鎴杢xt錛岋紝鍙鏈夎繖浜岀嶆牸寮忓彲浠ラ夋嫨錛
3銆侀夊彇濂藉悗鐐瑰嚮涓嬩竴姝ワ紝鍦ㄢ滃煎叆瀵煎嚭瀵硅瘽妗嗘ā鏉庫濅腑閫夋嫨瑕佺殑欏圭洰錛
4銆佺偣涓嬩竴姝ワ紝瀹屾垚銆傞粯璁や繚瀛樿礬寰勫湪妗岄潰涓娿
涓銆佸悓鑺遍『杞浠
鍚岃姳欏猴紝鏄涓嬈懼姛鑳介潪甯稿己澶х殑鍏嶈垂緗戜笂鑲＄エ璇佸埜浜ゆ槗鍒嗘瀽杞浠訛紝鎶曡祫鑰呯倰鑲＄殑蹇呭囧伐鍏楓
鍚岃姳欏鴻偂紲ㄨ蔣浠舵槸涓涓鎻愪緵琛屾儏鏄劇ず銆佽屾儏鍒嗘瀽鍜岃屾儏浜ゆ槗鐨勮偂紲ㄨ蔣浠訛紝瀹冨垎涓哄厤璐筆C浜у搧錛屼粯璐筆C浜у搧錛岀數鑴戝鉤鏉誇駭鍝侊紝鎵嬫満浜у搧絳夐傜敤鎬у己鐨勫氫釜鐗堟湰銆傚悓鑺遍『鑲＄エ杞浠舵敞閲嶅悇澶ц瘉鍒告満鏋勩佸箍澶ц偂姘戠殑闇奼傚拰浣跨敤涔犳儻錛屽悓鑺遍『鑲＄エ杞浠跺叏鏂扮増鍏嶈垂鍏嶆敞鍐屻傚叏鏂扮増鍚岃姳欏鴻偂紲ㄨ蔣浠舵柊澧炲己澶у姛鑳斤細鑷涓葷爺鍙戠殑闂璐㈤夎偂鍙婅嚜瀹氫箟閫夎偂錛岄棶璐㈤夎偂鏄鏂頒竴浠ｈ嚜鐒惰璦閫夎偂錛岃В鏋愯嚜鐒惰璦閫夊嚭鑲＄エ銆 鏂板為氳揪淇℃ā寮忋
鍚岃姳欏洪潰鍚戝㈡埛鍙涓洪摱琛屻佽瘉鍒搞佷繚闄┿佸熀閲戙佺佸嫙銆侀珮鏍°佹斂搴滅瓑琛屼笟鎻愪緵鏅鴻兘鍖栬В鍐蟲柟妗堛傛ｅ湪鎷撳睍鑷崇敓媧匯佸尰鐤椼佹暀鑲茬瓑鏇村氶嗗煙銆
浜屻佸悓鑺遍『涓氬姟浠嬬粛
嫻欐睙鏍告柊鍚岃姳欏猴紙300033錛夌綉緇滀俊鎮鑲′喚鏈夐檺鍏鍙稿墠韜涓轟笂嫻鋒牳鏂拌蔣浠舵妧鏈鏈夐檺鍏鍙革紝鎴愮珛浜2001騫8鏈24鏃ャ備負浣垮叕鍙告湁鏇村ソ鐨勫彂灞曠幆澧冿紝浜2007騫5鏈堣縼鍧鍒版澀宸為珮鏂板尯銆
浼佷笟鐢辨槗宄ョ瓑鍥涗釜鑷鐒朵漢鍜屼笂嫻峰嚡澹濂ユ姇璧勫挩璇㈡湁闄愬叕鍙稿叡鍚屾姇璧勭粍寤恆備紒涓氬湪鍖椾含銆佷笂嫻楓佹繁鍦熾佹垚閮姐佽タ瀹夈佸搱灝旀花璁劇珛浜6瀹跺垎鏀鏈烘瀯錛屽苟鎷ユ湁涓瀹跺叏璧勫瓙鍏鍙告澀宸炴牳鏂拌蔣浠舵妧鏈鏈夐檺鍏鍙革紙鎴愮珛浜1994騫達級銆
鍏鍙歌偂鏈538浜垮厓錛屼粠涓氫漢鍛樼害4000浣欎漢錛屽叾涓鐮斿彂浜哄憳鍜屾妧鏈鏈嶅姟浜哄憳鍗65%浠ヤ笂銆
鍏鍙告槸涓撲笟浠庝簨浜掕仈緗戠倰鑲¤蔣浠剁殑寮鍙戙佹彁渚涚倰鑲℃暟鎹鍜岃儲緇忎俊鎮鏈嶅姟鐨勯珮鏂版妧鏈浼佷笟錛屾棗涓嬫嫢鏈夊悓鑺遍『閲戣瀺鏈嶅姟緗戙佸悓鑺遍『鐖卞熀閲戞姇璧勭綉錛屽苟鎺ㄥ嚭浜嗕竴緋誨垪褰㈠紡涓板瘜銆佺嫭鍏風壒鑹茬殑鍒涙柊澧炲兼湇鍔★紝娣卞彈騫垮ぇ璇佸埜鍏鍙搞佽偂姘戠殑嬈㈣繋銆
甯哥敤鑲＄エ杞浠朵笅杞芥柟娉曟湁寰堝氾紝浣犲彲浠ュ湪鐧懼害涓鎵撅紝鎴栬呭湪杞浠剁殑瀹樻柟緗戠珯涓婁笅杞斤紝鎴栬呭湪涓嬭澆騫沖彴鎼滅儲銆傛垜鐢ㄧ殑涔愯偂杞浠舵槸鍦ㄥ畼鏂圭綉絝欎箰鑲＄綉涓婁笅杞界殑銆備綘濡傛灉涔熸兂涓嬭澆涔愯偂杞浠剁殑璇濓紝鍚屾牱鍙浠ュ埌涔愯偂緗戜笂涓嬭澆銆

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