博天新材股票歷史交易數據

1. 帝科股份股票歷史交易數據

半導體在股市中是一個熱門的板塊，很多投資者都比較看好半導體的股票，帝科股份也是屬於半導體行業的，並且擁有良好的走勢。下面我就分析一下帝科股份值不值得投資。在說帝科股份前，先來瞅瞅半導體行業龍頭股名單吧，大家直接領取就可以了：寶藏資料！半導體行業龍頭股一欄表

一、從公司角度來看

公司介紹：無錫帝科電子材料股份有限公司的主營業務為用於光伏電池金屬化環節的導電銀漿的研發、生產和銷售。

公司憑借產品研發、客戶服務以及精準的市場定位在市場中樹立了"高效、穩定、可靠"的良好品牌形象,取得了2016年及2017年度"中國光伏品牌排行最佳材料商"、"2017年度光伏材料企業"、無錫尚德"2017年度優質供應商"等榮譽。

從公司介紹可以發現帝科股份還是很有實力的，接下來我們通過好的地方解析帝科股份是否可以投資。

亮點一：光伏銀漿龍頭企業，經營穩健

公司的核心產品是正面銀漿，其整體營收和毛利佔比都是在90%以上。從2016年開始。公司發展的很不錯，公司正面銀漿銷量增長激增，銷量同比逐步提升。客戶涵蓋通威股份、晶科能源、天合光能、晶澳太陽能等頭部電池片廠家。現在，公司正面銀漿已經躋身於杜邦、賀利氏、三星SDI、碩禾等一線正面銀漿供應商梯隊，而且是我國的正面銀漿最主要供應商之一。

亮點二：產能提升，盈利能力提高

公司為了擴大生產，採用了募集的方式獲得總計4.6億元的資金，用於投入年產500噸正面銀漿搬遷及產能項目擴建、研究中心建設項目和補充流動資金。產能年新增255.20噸，公司的品牌影響力及市場佔有率有利於進一步提高，此外，也有利於提升規模效應，提升公司在產業鏈中的議價水平，可以有效地下降采購資金，提升產品的利潤率和盈利能力。

篇幅長短受限，有很多對於帝科股份的深入報告和風險提示，我整理在這篇研報當中，點擊即可查看：【深度研報】帝科股份點評，建議收藏！

二、從行業角度看

全球光伏產業處於發展高峰，世界能源結組織保持向新能源轉型，中國制定"雙碳目標"世界好幾個國家先後多次制定政策促進光伏產業發展，為企業的光伏產業發展保駕護航。

作為光伏產業鏈中的正面銀漿市場前景廣闊，目前國產正銀供給相對較少，正銀國產化正快速推進。正面銀漿占太陽能電池片總成本約10%，在非硅成本佔比超過三成，光伏產業升效降本得到實現，漿料國產化是降低光伏行業成本極為有效的方式。

國產正銀市佔率目前已達50%左右，預計將繼續提升。帝科股份，它身為正面銀漿的領頭羊企業，在某些方面能夠掌控著市場，隨著光伏行業的不斷發展，帝科股份能夠繼續擴大市場份額進一步擴大市場優勢。

結合以上內容來看，正面銀漿市場市場前景還是比較好的，帝科股份這一龍頭企業受到市場青睞，擁有很大上升空間。但文章具備滯後性，若是對帝科股份未來行情感興趣，直接點一下鏈接，有專業的投顧能幫忙診股，診斷帝科股份估值是高估還是低估：【免費】測一測帝科股份現在是高估還是低估？

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

2. 股票祥源新材的歷史數據

自從國家禁止收購洋垃圾後，國內塑膠變得越來越貴，而A股中塑膠製品指數連連走高，迫近創造新高。像是在塑膠製品指數的不斷上漲的情況之下我們可不可以也去持有相關行業中的某一隻股票分一杯羹呢？那麼今天我就跟大家一起對塑膠製品行業的一家優秀公司--祥源新材做一個深入了解。

在還沒有正式開始分析祥源新材前，我要贈送給大夥們一份塑膠製品行業龍頭股名單，點擊就能打開觀看：寶藏資料：塑膠製品行業龍頭股一覽表

一、從公司角度看

公司介紹：祥源新材創於2003年，是一家集研發、生產、銷售為一體的高新技術企業。公司專業生產與銷售環保交聯聚烯烴泡棉(XPE/IXPE/IXPP)及聚氨酯泡棉(PU)，產品暢銷國內各地及海外，如今是國內同行業的佼佼者，針對於聚烯烴泡棉來說，年產聚就超過9000噸。所生產材料在汽車內飾領域、電子領域、包裝緩存、醫療等領域有著十分廣泛的應用。

把祥源新材的公司情況簡單地介紹後，我們來了解一下祥源新材公司的優點，來看它是否值得我們去投資？

亮點一：客戶資源優勢

公司產品被多個知名公司應用，並通過下游進入財富500強企業HomeDepot、Lowe's的供應體系。

在電子消費領域中，公司產品應用於OPPO、VIVO 等被大眾所知道的品牌的電子設備。在汽車內飾材料領域中，公司產品被應用於福特、長安、長城等品牌的汽車內飾。公司的產品也被應用於家電領域，美的、格力、爾等知名品牌。被以上這些知名品牌所應用，將有利於開發行業內的其他客戶，為公司營收提供持續增長的保障。

亮點二：公司研發實力強，產能擴展有利於長遠發展

公司也可製造出0.06mm厚度的IXPE材料及IXPP材料等需要精湛技術的產品，兼備了製作多種型號、多重應用領域的IXPE、IXPP材料的實力。除此之外，公司的生產成本也減少了。

由於篇幅不能過長，與祥源新材的深度報告和風險提示這兩方面聯系比較深的信息，我撰寫成了這篇研報，戳開下方鏈接就能閱讀：【深度研報】祥源新材點評，建議收藏！

二、從行業角度看

隨著國際和國內對環保健康的意識呈上升趨勢，擁有環保健康特性的聚烯烴發泡將逐漸替代傳統的塑膠材料，且成為該領域的首要材料也很可能會實現。並且國內對高端聚烯烴發泡材料的需求在未來會漸漸增長，各行業對聚烯烴發泡材料的需求量持續不斷提高。

利用祥源新材的技術創新及設備改善，公司產品質量將不斷提升，豐富產品類型，不斷讓公司在國際的競爭力變大。

三、總結

綜上所述，祥源新材身為聚烯烴發泡行業的領頭羊，將陸續拓展市場，有望成為國際新材料首席企業，是一家相對而言有著比較不錯的塑膠製品產品的公司。然則文章總是滯後於實時情況，要是想更准確地預測祥源新材未來行情怎麼樣，直接打開下方鏈接就行了，有專業的投顧幫你診股，看下祥源新材此刻行情交易的好時機到沒到：【免費】測一測祥源新材還有機會嗎？

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

3. 如何下載所有股票的歷史數據

下載所有股票的歷史數據，以同花順股票軟體為例：
1、首先切換到要下載數據的股票K線形態，按「F1」進入「日線某某股票歷史成交」；
2、點擊滑鼠右鍵->數據導出->導出所有數據->在「請選擇導出的類型」中選擇excel或txt,，只有這二種格式可以選擇；
3、選取好後點擊下一步，在「導入導出對話框模板」中選擇要的項目（如最高價、最低價，開盤價等，默認是全選）；
4、點下一步，完成。默認保存路徑在桌面上。

4. 比亞迪股票歷史交易數據

比亞迪最近的股價漲得很猛，動態市盈率高達900多，許多小夥伴會覺得這個股價已經不低了，但是中信建投給比亞迪的預估值是1.5萬億目標市值，這預示著上漲空間還有70%。到底比亞迪的評估可不可靠呢？今天就來和大家來說下國內新能源汽車業務的佼佼者--比亞迪。

在還沒分析比亞迪股票之前，給大家分享一下我收集好的新能源領域龍頭股名單，戳鏈接就可以領取：寶藏資料：新能源行業龍頭股一覽表

一、從公司角度分析

公司介紹：比亞迪在中國稱得上是新能源汽車行業的老大，業務橫跨汽車、電池、IT、半導體等多個領域，擁有全球領先的電池、電機、電控及整車核心技術，以及全球首創的雙模技術和雙向逆變技術，實現汽車在動力性能、安全保護和能源消費等方面的多重跨越，是全球新能源汽車產業領跑者之一。

比亞迪的亮點：

1、產品力持續向上，新能源車銷量表現強勁

公司踏入了產品與技術的集中兌現期，因為很多車型陸續上市，並且搭配了比亞迪的最新科技，公司新能源汽車銷量一直在增加，依然是電動車領域的領頭羊，引領著行業發展，在自主品牌高端化方面亮點不斷，進步不小。

2、刀片電池出鞘安天下，進一步強化核心競爭力

比亞迪刀片電池具備超級安全、超級壽命、超級續航、超級強度、超級功率和超級低溫性能六大技術創新，跳過模組，相較於傳統電池包，體積利用率提升50%，在成本上也更加有優勢。當前電池市場佔有率15%，僅比CATL（寧德時代）低一名。從技術創新中受益，比亞迪刀片電池性能較為優秀，成本也比較低，就算在全球電動化為主的今天，比亞迪外供動力電池有望不斷打破限制，近一步占據市場份額，使核心競爭力變得更強。

3、深度產業鏈布局，彰顯龍頭地位

比亞迪的產業鏈布局不斷升溫，積極推動半導體分拆上市，先後入股華大北斗（高精度導航）、阿特斯（光伏）、湖南裕能（正極材料）等產業鏈核心公司。可以認為，比亞迪依靠產品鏈進行精深謀劃，對提高核心技術、供應鏈風險的把控能力有明顯的好處，凸顯了領導地位。

二、從行業角度分析

放眼當下，在碳中和減排政策的推出，與之鋰電池預算的控制雙輪驅動下，汽車電動化的發展進程迅速，到2027年全世界的新能源汽車滲透率有望超過一半。同時汽車智能化革命，汽車駕駛由輔助駕駛逐步進入到自動駕駛，駕駛艙智能化實現交通工具場景向智能出行場景的變化，出行服務未來將占據汽車市場主導權,到2025年全球L2及以上自動駕駛汽車滲透率有望超過70%。電動化與智能化變革，正在影響著傳統汽車產業鏈局面，新能源汽車的高速發展階段也將會到來。

受篇幅的影響，對於新能源汽車行業的深度報告以及風險提示，在整理這篇研報的過程中，想了解的點擊這里：【深度研報】比亞迪股票點評，建議收藏

三、總結

總之一句話，比亞迪作為國內新能源汽車的龍頭企業，在行業未來的發展前景這么可觀的情形下，有望迎來不斷發展。但是文章是具有一定的滯後性的，倘若你們想更加確切地清楚比亞迪股票未來行情，進入下方鏈接，有專業的顧問為你診察股票，看下有沒有正確的估出現在比亞迪股票的值：【免費】測一測比亞迪現在是高估還是低估？

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

5. 恆瑞醫葯股票歷史交易數據

疫情的爆發讓醫葯行業成為了市場的重點，20年以來，醫葯這個行業一直在爆發式地增長，目前疫情的反復出現，就再次使得醫葯行業繼續成為市場熱點，下面就來講講醫葯行業的創新葯械龍頭--恆瑞醫葯。

在全面剖析恆瑞醫葯前，不妨看看我為大家整理好的醫葯行業龍頭股名單，點擊即可：寶藏資料：醫葯行業龍頭股名單

一、從公司角度來看

公司介紹：恆瑞醫葯主營業務覆蓋葯品研發、生產和銷售。國內最大的抗腫瘤葯、手術用葯和造影劑的研究和生產基地之一就包括它。公司產品涵蓋了抗腫瘤葯、手術麻醉類用葯、特色輸液、造影劑、心血管葯等眾多領域，產品布局已經很好了，抗腫瘤也好、手術麻醉也好、或者是造影劑等，行業里這些領域市場份額在行業里都是獨占鰲頭。

這就來跟大家分析一下公司的一些亮點~

優勢一：產品結構優化，推動業績增長

公司收入結構進一步優化，某些程度上被創新葯業業績的上漲補償了仿製葯業務收入的降低。創新葯業務方面，創新葯銷售收入穩步增加，讓公司的業績變得越來越好，進一步革新了公司的收入結構。研發投入持續增加，海外研發布局力度逐漸加大。

優勢二：研發力度加大，鞏固公司龍頭地位

公司在研發費用上的投入越來越大，公司報告期內研發費用258,050.83萬元，較去年同期增長38.48%，占公司銷售收入比重 19.41%。公司目前 16 個重要產品研究進展中，已有 8 個項目進行臨床Ⅲ期試驗。報告期內，公司獲得產品注冊批件 14個，包括 5 個創新葯批件及 9 個仿製葯批件；獲得臨床批件 41 個；獲得一致性評價批件 10 個。公司未來創新產品管線將會繼續豐富，穩定住自身創新龍頭地位，自身市場競爭力提高起來。

優勢三：國際化布局持續推進

公司首個國際多中心Ⅲ期臨床研究--卡瑞利珠單抗聯合阿帕替尼治療晚期肝癌國際多中心Ⅲ期研究已完成海外入組，並啟動了美國 FDA BLA/NDA 遞交前的准備工作。隨著公司國際化戰略不斷推進，公司研發團隊與國內團隊溝通合作隨之逐步加深，公司海外業務進一步得到突破，並且也很有希望進一步擴大自身研發特長，使自身創新產品更為豐富，以達到增厚公司業績的目的，未來公司將逐漸從"中國新"邁向"全球新"，具有了成為擁有國際競爭力的跨國制葯大平台的可能性。

考慮到篇幅的問題，關於恆瑞醫葯的深度報告和風險提示的情況，我都放到了下面的研報中，戳這里可以閱讀：【深度研報】恆瑞醫葯點評，建議收藏！

二、從行業角度來看

行業基本面良好，消費升級跟人口老齡化帶給行業大量的剛性需求，長期來看的話真的很好：

（1）政策方面：策密集出台，帶量采購常態化使行業分化持續加速，倒逼企業向創新轉型；醫保目錄已建立動態調整，政策大力推動創新研發，我們的醫葯創新己步入黃金期，國際化的道路己經打開；

（2）消費升級：隨著我國的經濟實力不停提高，醫葯產業在消費升級當中能獲得新的機會，具有自我消費屬性且規避醫保控費政策的疫苗等葯品細分領域景氣度持續。

三、總結

總的來說，我認為恆瑞醫葯公司作為醫葯行業中的創新葯的龍頭企業，有希望在此行業變革之際迎來突飛猛進的發展。發表文章並不能保證其中訊息的時效性，如果想更精確地了解恆瑞醫葯以後的行情，那麼可以點擊鏈接，會有專業人士為你接下來瞧瞧恆瑞醫葯現在的行情是否可以買入或是賣出：【免費】測一測恆瑞醫葯還有機會嗎？

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

6. 天賜材料股票歷史交易數據

近來新能源汽車板塊表現比較出色，有關個股漲幅較樂觀，新能源汽車板塊在市場吸引了眾多的目光。接下來就讓我們好好地聊一下天賜材料，其是新能源汽車細分行業中電解液行業的龍頭公司。

對天賜材料的分析准備工作開始之前，分享給大家一份整理好的電解液行業龍頭股名單，點擊以下鏈接領取內容：寶藏資料：電解液行業龍頭股一覽表

一、從公司角度來看

公司介紹：天賜材料是國內電解液行業的龍頭企業。公司主要進行日化材料及特種化學品、鋰離子電池材料的研發、生產並推向市場進行銷售。表面活性劑、硅油、水溶性聚合物、陽離子調理劑等一系列日化材料及特種化學品，都是公司生產的主要產品。公司主要生產以鋰離子電池電解液和正極材料磷酸鐵鋰為材料的鋰離子電池，都是鋰電池關鍵原材料。另外，配套布局電解液和磷酸鐵鋰的關鍵原料生產能力都是以主要產品為依據，例如，六氟磷酸、新型鋰鹽、添加劑和磷酸鐵等原料。

粗略介紹了天賜材料的公司情況後，我們來看下天賜材料公司有什麼亮點，我們應不應該投資？

亮點一：深度布局鋰電材料產業鏈，加深一體化布局，構建精細化工循環體系

通過深度布局鋰電材料產業鏈的方式，來構建精細化工循環體系。公司自建垂直一體化產業鏈，擁有眾多產能。公司同時布局了鋰礦選礦、碳酸鋰、氫氟酸、氟化氫、硫酸等電上游環節，而今公司已形成"碳酸鋰-六氟磷酸鋰-電解液"的縱向布局情況，發掘了一條產業鏈"碳酸鋰-磷酸鐵-磷酸鐵鋰"，形成「電解液-正極材料」的橫向布局，推進鋰電材料平台化戰略。公司靠著核心鋰鹽技術、添加劑技術，更加完善的對核心原材料及循環產業進行布局，並且擁有優質的客戶群體。

亮點二：日化材料產品策略+營銷策略雙升級，貢獻增長新動能

公司除了涉及鋰電業務之外，還有一個主營業務。即是日化材料產品。依照營銷策略可得，公司以在化妝品領域引領配方應用服務的銷售戰略為支撐，公司在化妝品材料行業的認可度不斷提高，已逐漸得到國際市場的認可，取得不少區域重點大客戶驗證通過，為抬高相對市場佔有率奠定了堅實的基礎。公司以後將保持以技術服務為先導推動各重點國家本土品牌的市場佔有率，提升行業技術影響力，作為一個新的增長節點促進公司的長遠發展，為公司的業績增長提供助力。

因為文章字數是有限的，關於天賜材料的深度報告和風險提示的詳情，全都整理在這篇研報當中了，大家點擊就能看：【深度研報】天賜材料點評，建議收藏！

二、從行業角度來看

處於"碳中和"的時代趨勢，能源轉型已經得到了全球共鳴，成為全球趨勢，電動化浪潮很是火熱。依託市場的快速發展和鋰電池需求快速提，電解液需求將保持持續提高的趨勢。此外新型體系材料的應用范圍將越來越廣，對新功能的電解液的需求呈直線上升。行業內競爭越來越加劇，那些低端重復的同行業產能在不久的將來會被舍棄，懂得應用核心鋰鹽技術、添加劑技術、有更全面的核心原材料及循環產業布局和擁有優質客戶的企業將來的發展不可估量。

當優質電池廠商產能的擴大以及電池行業集中度增量，對產品質量優秀和供貨有保障的企業而言，更容易獲得批量采購訂單，中小供就商受間情影響只能退出，受產業集聚效應的影響，電解液廠集中度與下遊客戶集中度變化成正相關。天賜材料將首先享受到行業發展的福利。

三、總結

綜上所述，我覺得天賜材料公司身為電解液領軍者，估計會在行業變革的時候快速發展。可是文章沒有實時性，若是想對進一步了解天賜材料未來行情有深入的了解，立刻打開鏈接，你的股票會有專業人士診斷，看下天賜材料現在行情是否是買入或賣出的良好契機：【免費】測一測天賜材料還有機會嗎？

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

7. 股票歷史數據查詢，哪裡能查詢

股票軟體一般都有每隻股票的全部歷史數據的。

使用「大智慧」、「通達信」軟體的人最多，本人用著也認為很好。

請到「網路」網站搜索「大智慧 軟體」、「通達信 軟體」，找到它們的官方網站，下載。

在知名的軟體網站（如「天空軟體站」「華軍軟體園」）下載也可以。

在其它網站下載難保安全。

8. 盛和資源股票歷史交易數據

最近有色、資源類股票表現較好，市場也把越來越多的目光投向相關公司。今天給大家講講這稀土細分行業的龍頭公司--盛和資源。在開始分析盛和資源前，我整理好的稀土細分行業龍頭股名單分享給大家，點擊就可以領取：稀土細分行業龍頭股一覽表

一、從公司的角度來看

公司介紹：盛和資源在四川省稀土冶煉分離行業中屬於龍頭企業。其主營業務為稀土礦采選、冶煉分離、金屬加工以及鋯鈦礦選礦業務，主要產品為稀土精礦、稀土氧化物、稀土鹽、稀土金屬、獨居石、鋯英砂、鈦精礦、金紅石等。簡單介紹了盛和資源的公司情況後，下面對於盛和資源的公司的優勢，我們來看一下，值不值得投資？

亮點一：積極布局上游稀土礦，補足資源短板

{盛和資源原材料供給穩定且原材料綜合成本低。另外，公司還非常賣力地開拓海外稀土資源，加大對海外稀土礦山項目的競爭，產量沒有受到國內配額的限制，公司的生產經營規模及盈利能力，在一定程度上提高了。此時公司產能擴建項目和海外礦產資源的經營正在積極促進。

亮點二：實現全產業鏈布局，競爭優勢明顯，未來成長可期

盛和資源已有全產業鏈布局，擁有稀土礦采選、冶煉分離和金屬加工等產品線。公司把輕重稀土都重視著，具有成本及技術優勢。按成本算，不止原材料成本便宜，公司所在的地區，地水電資源充足，水電能源的成本是較低的。技術優勢體現在稀土萃取工藝領域和稀土冶煉分離領域，在行業中，處於領先地位。由於篇幅受限，更多關於盛和資源的深度報告和風險提示，我整理在這篇研報當中，點擊即可查看：【深度研報】盛和資源點評，建議收藏！

二、從行業的角度來看

稀土被稱為"工業的維生素"，在工業和新材料發展中有著舉足輕重的作用，製造高精尖產業產品基本上都需要它作為原料。我國存在大量稀土資源，向全世界輸出了較大比例的產量。伴隨海外多個輕稀土項目的推進，全球稀土供應格局正朝著多樣性的方向邁進，可是短時間內，我國稀土產業霸主的地位仍不可撼動。面對下游需求增長以及限制海外進口的趨勢下，稀土及其相關製品產品獲得的收益越來越高，極有可能提高稀土企業盈利能力。國內稀土產業龍頭企業--盛和資源，可以享受到發展紅利。總而言之，我認為作為中國稀土冶煉分離行業龍頭的盛和資源公司，有望在行業變革之際，迎來高速發展。但是文章具有一定的滯後性，如果想更准確地知道盛和資源未來行情，直接點擊鏈接，有專業的投顧幫你診股，看下盛和資源現在行情是否到買入或賣出的好時機：【免費】測一測盛和資源還有機會嗎？

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

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