博天新材股票历史交易数据

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