股票价格数据在哪儿可以下载

‘壹’ 什么网址或软件能下载股票每日的交易数据啊

同花顺软件就可以下载股票每日的交易数据。
股票交易是指股票投资者之间按照市场价格对已发行上市的股票所进行的买卖。股票公开转让的场所首先是证券交易所。中国大陆目前仅有两家交易所，即上海证券交易所和深圳证券交易所。
股票市场也称为二级市场或次级市场，是股票发行和流通的场所，也可以说是指对已发行的股票进行买卖和转让的场所。股票的交易都是通过股票市场来实现的。一般地，股票市场可以分为一、二级，一级市场也称之为股票发行市场，二级市场也称之为股票交易市场。 股票是一种有价证券。有价证券除股票外，还包括国家债券、公司债券、不动产抵押债券等等。国家债券出现较早，是最先投入交易的有价债券。随着商品经济的发展，后来才逐渐出现股票等有价债券。因此，股票交易只是有价债券交易的一个组成部分，股票市场也只是多种有价债券市场中的一种。很少有单一的股票市场，股票市场不过是证券市场中专营股票的地方。

‘贰’ 如何下载股票历史数据

方法/步骤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建立炒股系统的整套方法，请看后续内容。"