每日股票價格資料庫

⑴ 可以獲得國內股票和期貨tick級別歷史數據的資料庫有哪些

可以通過交易所的授權數據提供商獲得國內股票和期貨tick級別歷史數據。
很多人喜歡做短線，覺得短線刺激，長線持股待漲這種等待實在沒有辦法承受，但是倘若大家不會做短線，很大概率會虧得更快。今天就把我獨有的做T的秘籍分享給大家。
在開始以前，大家可以看一下我為大家准備的一點驚喜，機構精選的牛股大盤點--速領！今日機構牛股名單新鮮出爐！
一、股票做T是什麼意思
如果今天買入一隻股票，但是又想賣出，那麼只能隔天在操作，這就是A股的交易市場模式T＋1。
而股票做T，股票進行T＋0的交易操作就是指把當天買進的股票當天再賣出去，投資人通過可以交易股票的當天的漲跌做差價，當股票處於大幅下跌時，立刻買入，等漲到一定的高度就馬上轉賣，錢就是這樣掙到的。
列舉一下，1000股的xx股票在昨天我本來就持有著，市價10元/股。在今早是發現該股已經跌到了9.5元/股，立馬又跟進了1000股。到了下午，這支股票的價格就突然上漲到沒有想到的價格--10.5元/股，我就立刻以這個價格售出去1000股，從而賺取（10.5－9.5）×1000＝1000元的差價，這就是做T的過程。
但是，不是每種股票做T都合適！正常來說，日內振幅空間較大的股票，這類是比較適合做T的，比如，每日存在5%的振幅空間。對某隻股票了解不夠，沒有把握的，不妨就點開這里看看吧，有專業的人員去為你診斷T股票，從而選擇出最適合你的！【免費】測一測你的股票到底好不好？
二、股票做T怎麼操作
那股票做T到底怎麼操作？一般有兩種方式：正T和倒T。
正T即先買後賣，這股票一直在投資者手裡面持有著，投資者在開盤當天股票下跌到低點時買入1000股，股票當天沖到最高點的時候，將這1000股票托盤而出，這樣總持股數保持不變，T＋0這樣的效果也就能夠體現到了，又能夠享有中間賺取的差價。
而倒T即先賣後買。投資者預計到股票將大幅下跌的徵兆，所以就在高位點先賣出持有的一部分股票，等股價回落後再買進，總量仍舊有辦法保持不變，但能獲取收益。
比方投資者，他佔有該股2000股，每一股的價格在當天早上是10元，覺得該股的市價馬上就會做出調整，，於是賣出手中的1500股，在股票下降到9.5元/股時，他們就能從這只股票中獲得比較豐厚的利益，再買入1500股，這就賺取了（10-9.5）×1500＝750元的差價。
這時就有人問了，可以買入的低點是什麼時候，可以賣出的高點又是什麼時候要怎樣知道呢？
其實只要擁有一款買賣點捕捉神器，就可以判斷股票的趨勢，就能輕松幫你抓住每一個重要時機，如果想領取的話請點開鏈接：【智能AI助攻】一鍵獲取買賣機會

應答時間：2021-09-23，最新業務變化以文中鏈接內展示的數據為准，請點擊查看

⑵ 在哪裡可以找到股票歷史數據形成的資料庫

在股票行情軟體中，通過K線圖可以查看歷史數據，步驟如下：

1. 打開股票行情軟體；

2. 輸入要查看的股票代碼，並按【ENTER】鍵；

3. 進入股票分時走勢圖，點擊F5即可查看日K線圖；

4. 在日K線圖上，通過按上下方向鍵調整時間，向下鍵可以顯示上市以來的所有日K線，向上鍵則顯示最近的日K線，同時按向上鍵還會放大日K線，使數據更清晰可見；

5. 將滑鼠移到每一根日K線上，可以查看當日的K線詳情，包括最高價、最低價、成交價、成交量、漲跌幅及換手率等數據；

6. 雙擊K線，還可以查看當日的股票走勢圖，更加直觀地了解股價變化。

此外，除了軟體自帶的K線圖功能，還可以訪問各大財經網站或專業的數據平台獲取更詳盡的歷史數據。這些平台通常會提供豐富的歷史數據資源，包括但不限於股票的價格走勢、交易量、財務指標等，幫助投資者進行深入的分析和研究。

對於投資者而言，掌握這些工具和資源至關重要。通過分析歷史數據，投資者可以更好地理解市場趨勢，做出更加明智的投資決策。無論是個人投資者還是機構投資者，都可以從歷史數據中找到寶貴的信息，為自己的投資策略提供支持。

因此，無論是通過軟體自帶功能還是訪問專業平台，獲取股票歷史數據都是十分必要的。這些數據不僅有助於投資者了解市場的過去，還能為預測未來的市場走勢提供重要的參考依據。

⑶ 鏈変粈涔堢綉絝欏彲浠ョ湅鑲″競褰撳ぉ澶х洏

1銆佽繖綾葷綉絝欐湁寰堝氾紝鐩鍓嶏紝甯傞潰涓婂ぇ閮ㄥ垎鐨勮瘉鍒稿叕鍙哥殑緗戠珯銆佸悇澶ч棬鎴瘋儲緇忛戦亾銆佽偂紲ㄧ綉絝欑瓑錛屽熀鏈涓婇兘鍙浠ョ湅鍒拌偂甯傚ぇ鐩樼殑鎯呭喌錛屾煡鐪嬪綋澶╁ぇ鐩樼殑璧板娍錛岀洿鎺ヨ緭鍏ヨ偂紲ㄤ唬鐮000001鍜399001鍗沖彲鏌ョ湅鑲″競涓鐨勫ぇ鐩樼殑鏈楂樹環銆佹渶浣庝環銆佸疄鏃朵環鏍肩瓑銆

2銆佽偂甯傦紝鍗寵偂紲ㄥ競鍦猴紝鏄鎸囧凡緇忓彂琛岀殑鑲＄エ杞璁┿佷拱鍗栧拰嫻侀氱殑鍦烘墍錛屽寘鎷浜ゆ槗鎵甯傚満鍜屽満澶栦氦鏄撳競鍦轟袱澶х被鍒銆傜敱浜庡畠鏄寤虹珛鍦ㄥ彂琛屽競鍦哄熀紜涓婄殑錛屽洜姝ゅ張縐頒綔浜岀駭甯傚満銆傝偂紲ㄥ競鍦虹殑緇撴瀯鍜屼氦鏄撴椿鍔ㄦ瘮鍙戣屽競鍦猴紙涓綰у競鍦猴級鏇翠負澶嶆潅錛屽叾浣滅敤鍜屽獎鍝嶅姏涔熸洿澶с

3銆佸ぇ鐩橈細鏄鎸囨勃甯傜殑鈥滀笂璇佺患鍚堟寚鏁扳濆拰娣卞競鐨勨滄繁璇佹垚浠借偂鎸囨暟鈥濈殑鑲＄エ銆傚ぇ鐩樻寚鏁版槸榪愮敤緇熻″︿腑鐨勬寚鏁版柟娉曠紪鍒惰屾垚鐨勶紝鍙嶆槧鑲″競鎬諱綋浠鋒牸鎴栨煇綾昏偂浠峰彉鍔ㄥ拰璧板娍鐨勬寚鏍囥

涓鍥芥渶澶х殑鍑犱釜鑲＄エ緗戠珯鏄鍝鍑犱釜錛燂紵

鍏澶ц偂紲ㄧ綉絝欙紝鏁ｆ埛蹇呯湅錛

1銆佸ぎ瑙嗗浗闄呯粡嫻庨戦亾

浼樼偣錛氶〉闈㈡竻鏂幫紝鐪嬬潃寰堣垝鏈嶏紝鍜ㄨ涔熼潪甯稿強鏃躲傚煎緱姣忓ぉ鑺卞嶮鍒嗛挓嫻忚堜竴涓嬨

緙虹偣錛氫笓涓氭х◢寰宸浜嗙偣銆傚彲鑳借窡浠栦滑鐨勭珛鍦烘湁鍏熾

2銆佸拰璁緗

浼樼偣錛氬叧浜庢姇璧勯潪甯稿叏闈錛屽挨鍏舵槸鐮旂┒鎶ュ憡鍊煎緱緇忓父鐪嬩竴鐪嬨傝兘澶熷﹀埌涓嶅皯涓滆タ銆

緙虹偣錛氬箍鍛婅秺鏉ヨ秺澶氾紝閫熷害瓚婃潵瓚婃參

3銆佷腑璐㈢綉錛

浼樼偣錛氫俊鎮姣旇緝鍙婃椂錛岀偣璇勬瘮杈冧笓涓氥

緙虹偣錛氭湁鏃跺欒傜偣姣旇緝澶稿紶錛屾湁鍝椾紬鍙栧疇鐨勫珜鐤戙

4銆佹柊嫻璐㈢粡錛

浼樼偣錛氭秷鎮鏄鏈蹇鐨勶紝鏈夐噸澶т簨浠剁殑鏃跺欑涓鏃墮棿鍙浠ョ櫥闄嗕笂鍘葷湅涓鐪嬨

緙虹偣錛氱幇鍦ㄥ仛鐨勮秺鏉ヨ秺鏉備簡錛屽苟涓斿惉璇存槸鏃ユ湰浜烘帶鑲′簡錛屼笉鐭ラ亾鏄涓嶆槸鐪熺殑銆

5銆佸ぉ娑鑲＄エ璁哄潧錛

浼樼偣錛氶噷闈㈢粡甯告湁浜涘法鐗涚殑娑堟伅錛

緙虹偣錛氱粡甯告湁搴勫跺嚭璐х殑鏃跺欏湪閭ｉ噷鍙戝竷娑堟伅銆

6銆丮ACD鎶鏈鍒嗘瀽淇變箰閮錛

浼樼偣錛氫竴鐩存槸涓涓嶉敊鐨勫湴鏂癸紝鑳藉﹀埌寰堝氫笢瑗褲

緙虹偣錛氱幇鍦ㄩ噷闈㈤奔榫欐販鏉傦紝涓嶈佽交鏄撶浉淇′漢浣犲氨浼氭湁鏀惰幏銆

7銆佸墠娌胯傚療

浼樼偣錛氬ぇ鐩樺垎鏋愩佷釜鑲″垎鏋愩佹澘鍧楀垎鏋愩侀粦椹浜ゆ祦涓搴斾勘鍏

緙虹偣錛氳繖鍑犲勾鏂扮敓緗戠珯錛屼漢姘斿緱鍔犲己銆

8銆佷笂嫻瘋瘉鍒告姤錛

浼樼偣錛氬強鏃朵簡瑙ｅ挩璇㈠繀鐪嬬殑緗戠珯錛屾瘡澶╁紑鐩樺墠鑺變笂浜斿垎閽熸祻瑙堜竴涓嬨

緙虹偣錛氭寚瀵兼т笂宸浜嗕竴鐐癸紝榪欏彲鑳借窡浠栬嚜韜鐨勭珛鍦烘湁鍏熾

鍝浣嶆湁濂界殑鑲＄エ緗戠珯鎺ㄨ崘 錛熷厤璐圭殑鍝︼紒

涓鍥芥渶澶х殑鍑犱釜鑲＄エ緗戠珯鏄鍒嗗埆鏄涓滄柟璐㈠瘜緗戙佸叏鏅緗戙

涓滄柟璐㈠瘜緗戞槸涓鍥借塊棶閲忔渶澶с佸獎鍝嶅姏鏈澶х殑璐㈢粡璇佸埜闂ㄦ埛緗戠珯涔嬩竴銆 涓滄柟璐㈠瘜緗戣嚧鍔涗簬鎵撻犱笓涓氥佹潈濞併佷負鐢ㄦ埛鐫鎯崇殑璐㈢粡濯掍綋銆2004騫3鏈堜笂綰褲傚氬勾鏉ワ紝鍑鍊熸潈濞併佸叏闈銆佷笓涓氥佸強鏃剁殑浼樺娍錛屼笢鏂硅儲瀵岀綉鎸佺畫浣嶅眳涓鍥借儲緇忕被緗戠珯絎涓浣嶏紝騫朵笉鏂鎵╁ぇ涓庣珵浜夊規墜涔嬮棿鐨勫樊璺濓紝宸╁滻浼樺娍鍦頒綅銆

鍏ㄦ櫙緗戞槸涓涓緗戠珯鍚嶇О錛屼唬琛ㄦ湁璇佸埜璐㈢粡緗戠珯鍏ㄦ櫙緗戜互鍙婅惀閿騫沖彴緗戠珯鍏ㄦ櫙緗戙傚叕鍙鎬簬2002騫翠笌鍏ㄦ櫙緗戠粶鍏鍙擱噸緇勶紝鏋勫緩璧蜂互鏁版嵁搴撲負鍩虹銆佷互淇℃伅鎶闇蹭負鏍稿績銆侀泦緗戠珯銆佺數瑙嗐佸箍鎾銆佹潅蹇椼佹柊濯掍綋緇堢涓轟竴浣撶殑澶氬眰嬈¤祫鏈甯傚満璺ㄥ獟浣撲俊鎮浼犳挱浣撶郴錛屽艦鎴愪簡宸ㄦ疆璧勮緗戙佸叏鏅緗戙佹柊璐㈠瘜鏉傚織銆佽儲瀵屽ぉ涓嬫暟瀛楃數瑙嗛戦亾鍙婄郴鍒(浜ゆ槗鏃)璐㈢粡鐢佃嗚妭鐩銆佹繁璇佺郴鍒楁寚鏁般佸法娼緋誨垪鎸囨暟絳夎儲緇忕煡鍚嶅搧鐗岋紝鎴愪負涓鍥借祫鏈甯傚満淇℃伅鏈嶅姟棰嗗煙鐨勯緳澶翠紒涓氥傛繁鍦寵瘉鍒鎬俊鎮鏈夐檺鍏鍙告槸娣卞湷璇佸埜浜ゆ槗鎵鐨勪笅灞炲叕鍙革紝鎵挎媴娣變氦鎵鏈嶅姟璇佸埜甯傚満鐨勭浉鍏充笟鍔¤亴鑳斤紝鏄緇存姢璇佸埜甯傚満"涓夊叕"鍘熷垯鐨勫畧鏈涜呫傛繁鍦寵瘉鍒鎬俊鎮鏈夐檺鍏鍙告婚儴璁懼湪娣卞湷錛屽湪鍖椾含銆佷笂嫻瘋炬湁鍒嗗叕鍙稿強榪愯惀涓蹇冿紝騫惰劇珛涓滃寳銆佽タ鍖椼佸洓宸濄佹睙鑻忋佹禉奼熴佸北涓滅瓑鍔炰簨澶勫強鏉宸炪侀噸搴嗐佹垚閮姐佽タ瀹夌瓑璺婕斾腑蹇冦

璋佽兘鎻愪緵涓涓緗戠珯鎴栬呭叾浠栭斿緞 瀛︿範閲戣瀺鍩虹鐭ヨ瘑 鍖呮嫭鑲＄エ銆佸熀閲戙佸哄埜涔嬬被鐨勶紝鏈閲嶈佺殑鏄鍩虹鎬х殑錛屼笉瑕

鏂版氮-鑲″競琛屾儏>

鏈瀹炵敤鐨勮偂紲ㄧ綉絝欐湁鍝浜涳紵浣犳兂瑕佺殑閮藉湪榪欓噷闈

鐞嗚儲璧勬枡瀹炴椂鏇存柊

閾炬帴錛>pwd=2D72

鎻愬彇鐮侊細2D72

璧勬簮鍖呭惈錛氬熀閲戝疄鎿嶈劇▼銆佸熀閲戝疄鎴樿劇▼銆佸熀閲戝畾鎶曞疄鎴樸佽儲瀵岃穬榪佽劇▼ 銆佸熀閲戝垵綰ц劇▼涔嬪熀閲戣句歡zip銆佸熀閲戝垵綰ц劇▼涔嬬煡璇嗗皬緇擄紝鍩洪噾榪涢樁璇句箣絎旇般佸熀閲戣繘闃惰句箣絳旂枒銆佸備綍鎸戦夋墦鏂板熀閲戙佺湅鎳傛販鍚堝瀷鍩洪噾璧氬氫簭灝戠殑濂ョ樼瓑  

;     鑲＄エ鎶曡祫絎涓絝鍙ｈ繕鏄淇℃伅錛屽逛俊鎮鑾峰彇鐨勬笭閬擄紝浠ュ強瑙ｈ昏兘鍔涳紝灝嗙洿鎺ュ喅瀹氫綘鐨勬姇璧勬按騫籌紝鍥犱負浠諱綍鐨勮洓涓濋┈榪歸兘鈃忓湪榪欎簺淇℃伅褰撲腑錛屽氨濡傚悓浠諱綍鐨勪俊鎮閮戒細浣撶幇鍦ㄨ偂浠蜂笂涓鏍鳳紝閭ｆ渶瀹炵敤鐨勮偂紲ㄧ綉絝欐湁鍝浜涳紵璇ュ備綍鍒╃敤濂借繖浜涗俊鎮宸ュ叿錛熻繖鏄鎶曡祫鑰呭簲璇ュ叿澶囩殑鍩烘湰鍔熴備互涓嬪垪涓句竴浜涘父鐢ㄧ殑鑲＄エ緗戠珯錛屽ぇ瀹跺彲浠ユ牴鎹鑷韜闇瑕佷粎渚涘弬鑰冿細

涓銆佽儲緇忕綉絝欏艱埅

浠峰兼姇璧勫艱埅

瀛︿範浠峰兼姇璧勪粠value500鎶曡祫瀵艱埅寮濮嬶紒

鑲＄エ

鑲＄エ_鑲＄エ琛屾儏錛岃偂紲ㄦ煡璇錛岃儲緇忥紝璐㈢粡緗慱hao123鑲＄エ_hao123涓婄綉瀵艱埅#gupiaomingzhan

浜屻佸悇澶ц儲緇忛棬鎴

涓滄柟璐㈠瘜緗

涓滄柟璐㈠瘜緗戱細璐㈢粡闂ㄦ埛錛屾彁渚涗笓涓氱殑璐㈢粡銆佽偂紲ㄣ佽屾儏銆佽瘉鍒搞佸熀閲戙佺悊璐銆侀摱琛屻佷繚闄┿佷俊鎵樸佹湡璐с侀粍閲戙佽偂鍚с佸崥瀹㈢瓑鍚勭被璐㈢粡璧勮鍙婃暟鎹

涓滄柟璐㈠瘜鏄璐㈢粡鐨勯棬鎴風綉絝欙紝鍚勭嶈祫璁鍜屽搧縐嶇殑淇℃伅閮芥湁錛屽腑涓嬫瘮杈冨父鐢ㄧ殑濡傝偂鍚с佸ぉ澶╁熀閲戠瓑錛屾暟鎹緋葷粺涔熸槸闈炲父搴炲ぇ錛岃屼笖榪樺彲浠ュ煎嚭錛屽畠鏄鍦ㄥ浗鍐呰繍琛屾渶濂界殑璐㈢粡綾葷綉絝欙紝甯傚煎凡緇忚秴榪1600浜褲

鏂版氮璐㈢粡

鏂版氮璐㈢粡_鏂版氮緗

璇佸埜涔嬫槦

璇佸埜涔嬫槦 - 鑱氱劍涓鍥藉ソ鎶曡祫錛屾彁渚涘ぇ鐩樻寚鏁般佽屾儏鏁版嵁銆佽儲緇忋佽偂紲ㄣ佸熀閲戙佹湡璐с佸栨眹銆侀粍閲戠瓑澶氱嶄俊鎮鏈嶅姟

涓撲笟鐨勮瘉鍒哥被緗戠珯

鍜岃璐㈢粡

鍜岃緗

涓閲戝湪綰

涓閲戝湪綰塊栭〉錛氳儲緇 _ 鑲＄エ _ 璇佸埜 _ 閲戣瀺 _ 璐㈢粡鍗氬

鍑ゅ嚢璐㈢粡

鍑ゅ嚢緗戣儲緇-紱葷敤鎴風殑璐㈢粡濯掍綋-鍑ゅ嚢緗

鍚岃姳欏

鍚岃姳欏鴻儲緇廮_璁╂姇璧勫彉寰楁洿綆鍗

涓璐㈢綉

涓璐㈢綉 閲戣瀺鐣

閲戣瀺鐣-鎶曡祫鑰呬俊璧栫殑璐㈢粡閲戣瀺闂ㄦ埛緗戠珯錛屼互璇佸埜浜ゆ槗涓烘牳蹇冪殑浜掕仈緗戠患鍚堢悊璐㈠鉤鍙

鍏ㄦ櫙緗

鍏ㄦ櫙緗慱璧勬湰甯傚満璺婕斾簰鍔ㄥ鉤鍙癬涓撲笟璐㈢粡璧勮緗戠珯>

浠ヤ笂灝辨槸鍏充簬鏈変粈涔堢綉絝欏彲浠ョ湅鑲″競褰撳ぉ澶х洏鍏ㄩ儴鐨勫唴瀹癸紝鍖呮嫭:鏈変粈涔堢綉絝欏彲浠ョ湅鑲″競褰撳ぉ澶х洏銆佸叓澶ц偂紲ㄧ綉絝欐湁鍝浜涖佷腑鍥芥渶澶х殑鍑犱釜鑲＄エ緗戠珯鏄鍝鍑犱釜絳夌浉鍏沖唴瀹硅В絳旓紝濡傛灉鎯充簡瑙ｆ洿澶氱浉鍏沖唴瀹癸紝鍙浠ュ叧娉ㄦ垜浠錛屼綘浠鐨勬敮鎸佹槸鎴戜滑鏇存柊鐨勫姩鍔涳紒

⑷ 在哪裡可以找到股票歷史數據形成的資料庫

大富翁數據中心提供國內股票和期貨tick級別歷史數據的資料庫，各級別分鍾數據也有，外盤也有提供，都是純文本，質量很高

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

⑹ 萬德資料庫裡面有股票最高價數據嗎

萬德資料庫裡面有股票最高價數據具體查看步驟如下：
1、打開萬德app點擊首頁。
2、在首頁中點擊當日股票值。
3、右上方有個篩選，點擊從高到低排序。
4、第一個顯示的就是股票最高價。
5、點擊查看詳情就能獲取數據。