每日股票价格数据库

⑴ 可以获得国内股票和期货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、点击查看详情就能获取数据。