股票历史交易数据

‘壹’ 三一重工股票历史交易数据

三一重工在专用设备行业中占据重要地位，想必大家都很熟悉，很多机构投资者都会投资这只股票，下面，我将带领大家一起来分析一下，看看这款股票真的值得投资吗。在正式分析三一重工前，我有一些资料想和大家分享一下，都是我之前整理的专用设备行业龙头股名单，您只要点击一下就可以领取啦：宝藏资料：专用设备行业龙头股一览表

一、从公司角度来看

公司简介：三一重工股份有限公司是一家主要从事混凝土机械、路面机械、履带起重机械、桩工机械、挖掘机械、汽车起重机械的制造和销售的公司，属工程机械行业。公司是国内混凝土机械龙头企业，主要产品包括拖式混凝土输送泵、混凝土输送泵车、全液压振动压路机、摊铺机、挖掘机、平地机等。三一重工在过去的12年里，一直处于中国工程机械用户品牌关注的首位。

透过简介，我们发现，三一重工是一家非常有实力的企业，接下来呢，我们先从三一重工的亮点部分来进行分析，看看它究竟是否值得投资？

亮点一：核心产品竞争力持续提高，市场份额进一步提升

受下游基建、地产投资需求拉动，叠加环保政策升级、设备更新需求增长、人工替代效应等因素的推动，工程机械行业延续高景气度，公司作为行业龙头，全线产品持续增长，国内外市场份额持续提升，再次刷新历史最好经营业绩。

亮点二：数字化及智能化转型成果显着，公司经营能力持续提升

公司除了继续对自身进行数字化及智能化转型，还会大力推动"灯塔工厂"的建设，在国内各大产业园广泛采用视觉识别、工艺仿真、重载机器人等前沿工业技术和数字技术，很大程度的提高了人机协同与生产效率，大幅降低制造成本，进一步增强公司在全球的综合竞争力，增加了公司的人均创收，其水平已经获得了全世界工程机械行业的领先地位。

亮点三：坚定推进国际化战略，取得一系列积极进展

公司对海外市场渠道、服务能力、 代理商体系、服务配件体系的建设加大了投入，行业整体水平没有海外市场销售情况高，东南亚大区、三一美国、三一欧洲、非洲各区域均增长快速，北美，欧洲，印度等地区，他们的挖掘机份额相比从前均大幅度提升。随着海外市场的需求度已经渐渐的复苏，依靠海外业务深度布局的优势，出口业务是很有可能成为公司重要的业绩增长点的。

篇幅有限，想要深入了解更多关于三一重工的深度报告和风险提示的话，我已经整理好放在这篇研报当中，可点击查看：【深度研报】三一重工点评，建议收藏！

二、从行业角度看

由于受基建需求的拉动、国家对环境治理政策的加强、设备更新需求的增长和机械替代人工的趋势等多重因素的影响，工程机械行业在出现快速增长远超预期的情况下，景气程度也远超人们的预期。另外，市场规模也在逐步提高，下游施工需不断旺盛，其他国家对专用设备的需求还在持续增长。这种情况下，三一重工是行业标杆，公司的产品具有绝对的竞争优势，业绩营收有望更好。

总之，三一重工拥有很大的优势，用长远的目光来看这个股票不错。但是文章具有一定的滞后性，想知道三一重工的未来行情到底如何，直接点击下面这个链接，有专业的顾问帮你进行诊股，看下三一重工现在行情是否到买入或卖出的好时机：【免费】测一测三一重工还有机会吗？

应答时间：2021-09-07，最新业务变化以文中链接内展示的数据为准，请点击查看

‘贰’ 汇川技术股票历史交易数据

像仪器仪表这样的配件，在我们生活里有许许多多的机器都必须用到这些东西，它是市面上多数机械不可或缺的一部分。既然它拥有如此之高的重要性和广泛性,今天就带大家走进关于仪器仪表的龙头股---汇川技术。详细分析汇川技术股票前，现在给各位分享一下仪器仪表行业的龙头股名单，赶紧领取一下吧： 宝藏资料：仪器仪表行业龙头股一览表

一、从公司角度看

公司介绍：汇川技术总部位于广东深圳，在国内设有20个子公司。2020年公司实现销售收入115.11亿元，共有12867名员工，像工业自动化产品，新能源产品，新能源汽车业务，都属于公司的主要经营业务范围，并且公司掌握驱动和控制技术的自主技术产权。大家阅读完了汇川技术的公司情况，下面我们再来看看汇川技术公司有什么好的地方，我们投资的话有价值吗？

亮点一：公司实现工控进口替代

公司能够为市场提供成熟的PLC产品，这款小型的PLC产品已经经过3代迭代，总线型H3U、H5U产品已被推出，达到一线水平的性能，售价比外资大概低25%，产品价格很实惠，大家都很喜欢这款产品。同时基于Codesys平台开发了AC800中型PLC产品，目标是完成进口替代。计划2025年公司占有率达到10%的PLC市场，逐步由进口到出口发展方向。

亮点二：工控市场需求旺盛，公司市场份额大幅提升

MIR的报告显示，公司通用变频器、通用伺服、PLC&HM同比增长68%、133%、40%，低压变频器、交流伺服、小型PLC产品上半年市场占有率分别提升1.4、5.4、2.41pct。电梯一体化产品有44%的增长，贝思特有24%的增长，其中所配套的大配套业务亦是增长超90%。同样的，公司在新能源乘用车份额和市场地位也在稳步提升当中。

亮点三：优化核心业务产能布局

2021年8月24日公司发表通告，打算分别投资11.96亿元和5亿元，在湖南岳阳建设工业电机项目、在山西太原建设高压变频器项目。这些项目如果建成之后的话，就能够非常有效地提高公司工业电机、高压变频器产业的整体产能，进而完善公司的产能布局，更大程度上减少运营风险，有效提升获利水平。由于篇幅受限，更多关于汇川技术股票的深度报告和风险提示，在这篇研报中都有详细的整理，点击即可查看：【深度研报】汇川技术股票点评，建议收藏！

二、行业角度

此刻，新基建、新能源等投资是拉动仪器仪表行业逐渐回暖的有利因素。按照统计，对比上一季度，2021年第一季度工业自动化的增长率达到了26%，而且在新能源汽车产业上的业务也有了快速的提升，在市场上的行业地位也不断提高。

当中，低压变频器产品市场规模将近154亿，同期增长30%，通用伺服系统规模靠近120亿，比同时期多了47%。在国家对该行业的不断扶持下，以后的新能源领域会不断的扩大，有利于该行业业绩稳步快速增长。总的来说，汇川技术成长起来的速度十分快，业务增长率逐步提高，业绩回报提升速度特别快，国家未来将不断扶持新能源和新基建，作为产业链中重要一环，想必也将受益颇丰。可是文章是拥有很大的滞后性的，如果想更准确地知道汇川技术股票未来行情，直接点击下方网址，有专业的投顾帮你诊股，了解一下汇川技术股票的预估价值到底高不高：【免费】测一测汇川技术股票现在是高估还是低估？

应答时间：2021-09-07，最新业务变化以文中链接内展示的数据为准，请点击查看

‘叁’ 盛和资源股票历史交易数据

最近有色、资源类股票表现较好，市场也把越来越多的目光投向相关公司。今天给大家讲讲这稀土细分行业的龙头公司--盛和资源。在开始分析盛和资源前，我整理好的稀土细分行业龙头股名单分享给大家，点击就可以领取：稀土细分行业龙头股一览表

一、从公司的角度来看

公司介绍：盛和资源在四川省稀土冶炼分离行业中属于龙头企业。其主营业务为稀土矿采选、冶炼分离、金属加工以及锆钛矿选矿业务，主要产品为稀土精矿、稀土氧化物、稀土盐、稀土金属、独居石、锆英砂、钛精矿、金红石等。简单介绍了盛和资源的公司情况后，下面对于盛和资源的公司的优势，我们来看一下，值不值得投资？

亮点一：积极布局上游稀土矿，补足资源短板

{盛和资源原材料供给稳定且原材料综合成本低。另外，公司还非常卖力地开拓海外稀土资源，加大对海外稀土矿山项目的竞争，产量没有受到国内配额的限制，公司的生产经营规模及盈利能力，在一定程度上提高了。此时公司产能扩建项目和海外矿产资源的经营正在积极促进。

亮点二：实现全产业链布局，竞争优势明显，未来成长可期

盛和资源已有全产业链布局，拥有稀土矿采选、冶炼分离和金属加工等产品线。公司把轻重稀土都重视着，具有成本及技术优势。按成本算，不止原材料成本便宜，公司所在的地区，地水电资源充足，水电能源的成本是较低的。技术优势体现在稀土萃取工艺领域和稀土冶炼分离领域，在行业中，处于领先地位。由于篇幅受限，更多关于盛和资源的深度报告和风险提示，我整理在这篇研报当中，点击即可查看：【深度研报】盛和资源点评，建议收藏！

二、从行业的角度来看

稀土被称为"工业的维生素"，在工业和新材料发展中有着举足轻重的作用，制造高精尖产业产品基本上都需要它作为原料。我国存在大量稀土资源，向全世界输出了较大比例的产量。伴随海外多个轻稀土项目的推进，全球稀土供应格局正朝着多样性的方向迈进，可是短时间内，我国稀土产业霸主的地位仍不可撼动。面对下游需求增长以及限制海外进口的趋势下，稀土及其相关制品产品获得的收益越来越高，极有可能提高稀土企业盈利能力。国内稀土产业龙头企业--盛和资源，可以享受到发展红利。总而言之，我认为作为中国稀土冶炼分离行业龙头的盛和资源公司，有望在行业变革之际，迎来高速发展。但是文章具有一定的滞后性，如果想更准确地知道盛和资源未来行情，直接点击链接，有专业的投顾帮你诊股，看下盛和资源现在行情是否到买入或卖出的好时机：【免费】测一测盛和资源还有机会吗？

应答时间：2021-09-06，最新业务变化以文中链接内展示的数据为准，请点击查看

‘肆’ 股票怎么查历史数据

1、打开自己的手机桌面，选择大智慧这个图标进入。

‘伍’ 天赐材料股票历史交易数据

近来新能源汽车板块表现比较出色，有关个股涨幅较乐观，新能源汽车板块在市场吸引了众多的目光。接下来就让我们好好地聊一下天赐材料，其是新能源汽车细分行业中电解液行业的龙头公司。

对天赐材料的分析准备工作开始之前，分享给大家一份整理好的电解液行业龙头股名单，点击以下链接领取内容：宝藏资料：电解液行业龙头股一览表

一、从公司角度来看

公司介绍：天赐材料是国内电解液行业的龙头企业。公司主要进行日化材料及特种化学品、锂离子电池材料的研发、生产并推向市场进行销售。表面活性剂、硅油、水溶性聚合物、阳离子调理剂等一系列日化材料及特种化学品，都是公司生产的主要产品。公司主要生产以锂离子电池电解液和正极材料磷酸铁锂为材料的锂离子电池，都是锂电池关键原材料。另外，配套布局电解液和磷酸铁锂的关键原料生产能力都是以主要产品为依据，例如，六氟磷酸、新型锂盐、添加剂和磷酸铁等原料。

粗略介绍了天赐材料的公司情况后，我们来看下天赐材料公司有什么亮点，我们应不应该投资？

亮点一：深度布局锂电材料产业链，加深一体化布局，构建精细化工循环体系

通过深度布局锂电材料产业链的方式，来构建精细化工循环体系。公司自建垂直一体化产业链，拥有众多产能。公司同时布局了锂矿选矿、碳酸锂、氢氟酸、氟化氢、硫酸等电上游环节，而今公司已形成"碳酸锂-六氟磷酸锂-电解液"的纵向布局情况，发掘了一条产业链"碳酸锂-磷酸铁-磷酸铁锂"，形成“电解液-正极材料”的横向布局，推进锂电材料平台化战略。公司靠着核心锂盐技术、添加剂技术，更加完善的对核心原材料及循环产业进行布局，并且拥有优质的客户群体。

亮点二：日化材料产品策略+营销策略双升级，贡献增长新动能

公司除了涉及锂电业务之外，还有一个主营业务。即是日化材料产品。依照营销策略可得，公司以在化妆品领域引领配方应用服务的销售战略为支撑，公司在化妆品材料行业的认可度不断提高，已逐渐得到国际市场的认可，取得不少区域重点大客户验证通过，为抬高相对市场占有率奠定了坚实的基础。公司以后将保持以技术服务为先导推动各重点国家本土品牌的市场占有率，提升行业技术影响力，作为一个新的增长节点促进公司的长远发展，为公司的业绩增长提供助力。

因为文章字数是有限的，关于天赐材料的深度报告和风险提示的详情，全都整理在这篇研报当中了，大家点击就能看：【深度研报】天赐材料点评，建议收藏！

二、从行业角度来看

处于"碳中和"的时代趋势，能源转型已经得到了全球共鸣，成为全球趋势，电动化浪潮很是火热。依托市场的快速发展和锂电池需求快速提，电解液需求将保持持续提高的趋势。此外新型体系材料的应用范围将越来越广，对新功能的电解液的需求呈直线上升。行业内竞争越来越加剧，那些低端重复的同行业产能在不久的将来会被舍弃，懂得应用核心锂盐技术、添加剂技术、有更全面的核心原材料及循环产业布局和拥有优质客户的企业将来的发展不可估量。

当优质电池厂商产能的扩大以及电池行业集中度增量，对产品质量优秀和供货有保障的企业而言，更容易获得批量采购订单，中小供就商受间情影响只能退出，受产业集聚效应的影响，电解液厂集中度与下游客户集中度变化成正相关。天赐材料将首先享受到行业发展的福利。

三、总结

综上所述，我觉得天赐材料公司身为电解液领军者，估计会在行业变革的时候快速发展。可是文章没有实时性，若是想对进一步了解天赐材料未来行情有深入的了解，立刻打开链接，你的股票会有专业人士诊断，看下天赐材料现在行情是否是买入或卖出的良好契机：【免费】测一测天赐材料还有机会吗？

应答时间：2021-09-07，最新业务变化以文中链接内展示的数据为准，请点击查看

‘陆’ 贵州茅台股票历史交易数据

白酒行业中的一哥贵州茅台，距离创阶段新低还是还很近了。

近来有不少朋友都发出了担心贵州茅台后市发展的声音，像是这样的话："大家还看好贵州茅台这只股票吗？"

有些人还发出了更强烈的质疑："贵州茅台这走势，该不会暴雷的吧？"

而我的观点是：在A股中价值投资的典范归属贵州茅台，可以坚定持有并长期看好。

很多行业的龙头股在价值投资方面都有不错的表现。我整理了很久的A股各行业的龙头股名单。你如果还没有决定好购入哪支股票，订购龙头股是很不错的。很便捷，点链接就获取了：A股超全行业龙头股，你的选股好帮手

就现在时间段来看，短时性的降低，大部分影响因素来源于市场规则。因为本轮行情炒作的是成长性，虽然一线白酒行业业绩很好，但却增长缓慢，缺失了"增长性"这个中心点，仅此而已。

就像这句话，好股票，不会输钱，仅仅只会输给时间。白酒还是那个基本面无敌的行业，贵州茅台依旧是A股中不败之王。

一、短期看，传统节日（如端午、中秋、春节）前后的白酒动销依旧景气，在高端酒方面，价格一直都很高

如果从短期看来，在端午、春节等传统节日的时候，还有就是在摆宴席时等等的情况下，整个消费动力会大大的提高。

根据价格来分析，贵州茅台批价在高端白酒中一直都平稳，偶尔还会上涨，从下面的数据看出：

目前茅台箱/散装批价分别为3300-3400元、2750-2850元，价差依据5月的数据有所收缩，散装茅台持续上涨。

针对新增的产能系列酒会进行分批投产，很有希望将会是贵州茅台的重要增长极，关于非标类和系列酒的提价这些数据也有望反映在第二季度业绩。

二、中长期看，高端扩容持续推进，贵州茅台的获利能力一直比较稳定，并且慢慢高升

依照中长期来说，随着国人理性饮酒的意识抬头，以及财富增长带动对于饮食精致度的提升，从2017年开始，白酒行业销量一直在减少，行业进入“量平价增”阶段，但与此同时中低端酒类销量不够景气，高端酒类市场持续增长，行业逐渐向高端、头部企业集中。

在市场需求规模上，2017 年高端酒的年销售额约1000亿元，2019年高端酒规模约1600亿，2017到2019年合计增速超出20%。

在白酒行业吨价层面，从2017年的4.7万元/吨提升到2019年的7.2万元/吨，复合增长将近15%。

参照机构的预测结果，2018-2023年高净值人群数量复合增速为8%，随着高净值人口的增加和居民可支配收入的增加，行业消费升级趋势还将延续。

可近些年来，茅台的白酒批价及零售价都是稳定上升的一个状态，并且公司的利润一直稳中有升。

来看看贵州茅台的更多看法和观点吧，其他机构的行业研报汇总整理了一下，供大家更好的去分析，戳开就可以看到了：行业研报（整理版）：贵州茅台还有没有机会？

三、总结

从短期看来，端午节前后的白酒动销依旧兴旺，在高端酒方面，价格一直都很高；以中长期来看，高端市场也在慢慢地提升，贵州茅台的获利能力一直比较稳定，并且慢慢高升。就在目前这种状况下，很可能一线白酒茅台的业绩也会非常理想，并且实现稳健增长。

现在的趋势也能看得出来，目前已经有下降的趋势了，在左侧交易期间的范围，预期有强悍的趋势，打算想抄底的话，希望能在股价稳定后再进行。

由于篇幅受限，贵州茅台的行情趋势也不能具体的展示了，若是想知道贵州茅台接下来的行情趋势，可以直接输入股票代码，就能查询：【免费】测一测贵州茅台未来走势

应答时间：2021-09-09，最新业务变化以文中链接内展示的数据为准，请点击查看

‘柒’ 如何查询股票历史交易记录

1、 每个公司查看股票成交记录的方式可能略有区别，但是大概的路径都是交易→普通交易→查询→历史成交。如果没有查到的话，建议投资者可以咨询所在证券公司查询方式。
2、 查询股票历史交易记录的方法很多。投资者凭有效身份证明文件、证券账户到登记结算公司柜台打印证券变更记录；也可以到开户证券公司营业部，由证券公司代理投资者向交易所查询和打印历史成交记录。当然最方便的还可以登录你的交易软件查询交割单。
3、 网上查询手机端和电脑端的查询方式都是类似的，差别不大。投资者也可以查看账户的对账单，账户对账单相当于是银行的流水一样，每一笔交易都会在上面提现，投资者可根据自己的需求查询。
4、 投资者可以通过当日成交，来查看投资者当天买卖个股的情况；通过历史成交、或者交割单，来查其最近所进行的股票买卖情况。其中当日成交和历史成交一般只能看到投资者买入个股的价位，买入时间、买入金额以及买入股数，而交割单中，除了这些之外，还能看到投资者的交易手续费用。
5、 交易记录，自交易记账当年计起至少保存5年。 如客户身份资料和交易记录涉及正在被反洗钱调查的可疑交易活动，且反洗钱调查工作在前款规定的最低保存期届满时仍未结束的，金融机构应将其保存至反洗钱调查工作结束。
6、 需要注意的是交易时间只能查询近一个月的情况，休市时间可以查询近三个月的情况，超过三个月的要上证券公司柜台查询。如果查询线上了建议投资者可以在交易时间段，携带有效身份证去营业部查询其股票交易记录，营业部工作人员会把投资者的交易记录打印出来。同时，投资者通过其交易记录，大致可以知道其盈亏情况。

‘捌’ 请问股票成交额的历史数据

可以呀！在下载前会提示你下载多久的历史数据，也可分选成交额！点系统--盘后数据下载就可以了！多实战学习吧！这才是股市成功的唯一道路，祝你好运！

‘玖’ 帝科股份股票历史交易数据

半导体在股市中是一个热门的板块，很多投资者都比较看好半导体的股票，帝科股份也是属于半导体行业的，并且拥有良好的走势。下面我就分析一下帝科股份值不值得投资。在说帝科股份前，先来瞅瞅半导体行业龙头股名单吧，大家直接领取就可以了：宝藏资料！半导体行业龙头股一栏表

一、从公司角度来看

公司介绍：无锡帝科电子材料股份有限公司的主营业务为用于光伏电池金属化环节的导电银浆的研发、生产和销售。

公司凭借产品研发、客户服务以及精准的市场定位在市场中树立了"高效、稳定、可靠"的良好品牌形象,取得了2016年及2017年度"中国光伏品牌排行最佳材料商"、"2017年度光伏材料企业"、无锡尚德"2017年度优质供应商"等荣誉。

从公司介绍可以发现帝科股份还是很有实力的，接下来我们通过好的地方解析帝科股份是否可以投资。

亮点一：光伏银浆龙头企业，经营稳健

公司的核心产品是正面银浆，其整体营收和毛利占比都是在90%以上。从2016年开始。公司发展的很不错，公司正面银浆销量增长激增，销量同比逐步提升。客户涵盖通威股份、晶科能源、天合光能、晶澳太阳能等头部电池片厂家。现在，公司正面银浆已经跻身于杜邦、贺利氏、三星SDI、硕禾等一线正面银浆供应商梯队，而且是我国的正面银浆最主要供应商之一。

亮点二：产能提升，盈利能力提高

公司为了扩大生产，采用了募集的方式获得总计4.6亿元的资金，用于投入年产500吨正面银浆搬迁及产能项目扩建、研究中心建设项目和补充流动资金。产能年新增255.20吨，公司的品牌影响力及市场占有率有利于进一步提高，此外，也有利于提升规模效应，提升公司在产业链中的议价水平，可以有效地下降采购资金，提升产品的利润率和盈利能力。

篇幅长短受限，有很多对于帝科股份的深入报告和风险提示，我整理在这篇研报当中，点击即可查看：【深度研报】帝科股份点评，建议收藏！

二、从行业角度看

全球光伏产业处于发展高峰，世界能源结组织保持向新能源转型，中国制定"双碳目标"世界好几个国家先后多次制定政策促进光伏产业发展，为企业的光伏产业发展保驾护航。

作为光伏产业链中的正面银浆市场前景广阔，目前国产正银供给相对较少，正银国产化正快速推进。正面银浆占太阳能电池片总成本约10%，在非硅成本占比超过三成，光伏产业升效降本得到实现，浆料国产化是降低光伏行业成本极为有效的方式。

国产正银市占率目前已达50%左右，预计将继续提升。帝科股份，它身为正面银浆的领头羊企业，在某些方面能够掌控着市场，随着光伏行业的不断发展，帝科股份能够继续扩大市场份额进一步扩大市场优势。

结合以上内容来看，正面银浆市场市场前景还是比较好的，帝科股份这一龙头企业受到市场青睐，拥有很大上升空间。但文章具备滞后性，若是对帝科股份未来行情感兴趣，直接点一下链接，有专业的投顾能帮忙诊股，诊断帝科股份估值是高估还是低估：【免费】测一测帝科股份现在是高估还是低估？

应答时间：2021-09-08，最新业务变化以文中链接内展示的数据为准，请点击查看

‘拾’ 如何下载股票历史成交数据到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建立炒股系统的整套方法，请看后续内容。"