股票数据表格

‘壹’ 景嘉微的股票历史数据表

国防实力对保障国家安全起着关键作用，所以国防军工板块一直都是市场所关注的重点。军工的题材不是那么好概括的，在它细分领域下面还有很多优秀的企业，下面就来研究一下军工板块中航天装备领域的优质企业--景嘉微。

在研究景嘉微前，先把这份军工行业龙头股名单给大家呈上，还不赶紧领取一下：宝藏资料：军工行业龙头股名单

一、从公司角度来看

公司介绍：景嘉微的主要业务是可靠军用电子产品的研发、生产和销售，主要涵盖的产品是图形显控、小型专用化雷达领域的核心模块及系统级产品。公司一直致力于高可靠电子产品的研究开发，目前在国内图形显控领域里，一直占据着第一的位置。

研究完公司概况，下面跟大家介绍一下公司的亮点~

优势一：研发实力积淀深厚，市场竞争优势明显

较早开始，公司是在微波射频和信号处理方面进行技术积累，在空中防撞雷达、主动防护雷达及弹载雷达微波射频前端等小型专用化雷达领域具有技术优势。公司持续加大研发投入的中心是围绕图形处理芯片相关产品及小型专用化雷达产品的，同时不断把高端人才都引进来，员工结构也将得到持续的改进和完善。

目前我国新研制的绝大多数军用飞机均使用该公司的图形显控模块，此外，公司生产的产品还被应用在了相当数量的军用飞机显控系统换代中，占领军用飞机市场中优势地位的是公司图形显控模块。

优势二：先发优势，业绩持续高增长

遭到信创市场逐步放量、下游囤货等的消极影响，GPU芯片市场需求很大，公司的芯片领域产品放量增长、毛利率提升。国防信息化需求增长幅度巨大，让小型专用化雷达领域产品带来的收入处于稳定增长的状态。在小型专用化雷达领域公司具有一定的先发优势。研发了以主动防护雷达、测速雷达等系列雷达产品和包括自组网在内的系列无线通讯相关系统级产品，为祖国军工的信息化建设持续贡献力量。

由于篇幅受限，更多关于景嘉微的深度报告和风险提示，全都在这篇研报当中了，点击即可查看：【深度研报】景嘉微点评，建议收藏！

二、从行业角度来看

我国“十四五规划”指出“2027年实现建军百年奋斗目标”，信息化发展会成为军队现代化建设的目标，预计未来中国国防信息化行业的市场规模将持续增加。在"十四五"期间的武器装备列装放量中，公司将有望迎来充分发展的良机。

三、总结

从全面来看，我觉得景嘉微公司作为航空装备领域的优秀企业，有可能在行业增长可观的趋势下迎来快速发展。可是文章具有一定的延迟性，想了解景嘉微未来行情的朋友，戳这个链接，有专业的投顾帮你诊股，看下景嘉微现在行情是否到买入或卖出的好时机：【免费】测一测景嘉微还有机会吗？

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

‘贰’ 如何用EXCEL表格看股票行情

1、首先，新建一个工作表，选中任意一个空单元格。选择【数据】-【自网站】。

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

‘肆’ 怎样用Excel看股票如何看股票

推荐个非常好用的工具——腾讯文档，我现在看股票实时信息就是用的这个，它们的在线表格有个“股票动态函数”，非常好用！简单、无需学习、数据实时自动更新；看看我日常看的股票表：

‘伍’ 如何用Excel获取所有股票最近一年的历史交易数据，一个表格分80个工作表，每个工作表放入一只股票

只能手动更新，或者做个数据库，这个难度大，非专业做不了。

‘陆’ 盛和资源的股票历史数据表

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

一、从公司的角度来看

公司介绍：盛和资源的地位在四川省稀土冶炼分离行业中是属于龙头企业。主要业务范围是稀土矿采选、冶炼分离、金属加工以及锆钛矿选矿，主要产品为稀土精矿、稀土氧化物、稀土盐、稀土金属、独居石、锆英砂、钛精矿、金红石等。简单介绍了盛和资源的公司情况后，接下来关于盛和资源的公司的亮点我们来了解一下，值得入手吗？

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

{盛和资源原材料供给稳定且原材料综合成本低。}此外，公司积极拓展海外稀土资源，加大对海外稀土矿山项目的竞争，产能不受国内配额限制，在一定程度上促进了公司生产经营规模和盈利能力的提高。当今公司正热心推进产能扩建项目和海外矿产资源的经营。

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

盛和资源的全产业链布局已实现，具备稀土矿采选、冶炼分离和金属加工等一系列产品线。公司轻重稀土兼顾，具备成本及技术优势。成本上，不单原材料成本便宜，公司所在的地区，地水电资源充足，成本来说水电能源的是比较低。在技术方面，稀土萃取工艺领域和稀土冶炼分离领域有很大的优势，在行业中的地位是比较高的。由于篇幅受限，更多关于盛和资源的深度报告和风险提示，我整理在这篇研报当中，点击即可查看：【深度研报】盛和资源点评，建议收藏！

二、从行业的角度来看

稀土被称为"工业的维生素"，在工业和新材料发展中扮演着重要的角色，不少高精尖产业产品需要依赖它才能进行制造。我国的稀土是非常多的，大量向全球供应产量。伴随海外多个轻稀土项目的推进，全球稀土供应格局越来越多元化，可是短期内，很难撼动我国稀土产业领军者地位。面对下游需求增长以及限制海外进口的背景，稀土及其相关制品产品的收益也越来越高，稀土企业盈利能力有希望提高。国内稀土产业龙头企业--盛和资源，将享受到发展带来的好处。整体来说，我认为盛和资源公司作为稀土冶炼分离行业龙头，有望在行业变革之际，迎来高速发展。但是文章具有一定的滞后性，如果想更准确地知道盛和资源未来行情，直接点击链接，有专业的投顾帮你诊股，看下盛和资源现在行情是否到买入或卖出的好时机：【免费】测一测盛和资源还有机会吗？

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

‘柒’ 求股票数据xls，要2000年到2010年的数据，主要是三个表格就可以了

已发送，我的名字叫 月月的小屋~~

‘捌’ 锌业股份的股票历史数据表

中国的造船历史很长远，疫情复苏以来，船舶制造与运输需求增加，对应到股市中船舶制造板块表现真的相当到位，获得了很多人的芳心。今天我们就来好好聊下船舶制造行业的龙头公司——中国船舶。在开始之前，建议大家先浏览一下这份船舶制造行业龙头股名单，大家可以直接点击这里的链接：【宝藏资料】船舶制造行业龙头股一览表

一、从公司角度来看

中国船舶是国内规模最大、技术最先进、产品结构最全的造船旗舰上市公司之一。公司业务覆盖了船舶建造、修船、海洋工程、动力业务、机电设备等。在造船业务层面，公司产品线可以覆盖到散货船、油船、集装箱船等船型，造船总量和造机产量连续多年均高于国内其他公司。同时，由于是中船集团核心民品主业上市公司，具有完备的产业模式，是国内船舶制造的领军人。

简单聊了聊中国船舶的公司情况后，我们来看下中国船舶公司有什么亮点，我们投资了值不值？

亮点一：品牌和业务规模优势

要是近几年了，我们中国船舶品牌在世界上越来越深远的，同时在生产效率、周期、产品质量、成本控制、顾客满意度等方面表现出了相当大的竞争优势，名誉方面特别好，而且还极有竞争力。在重大资产重组结束后，中国船舶产品业务范围会更深入地拓展和整合产品业务范围，基本上包含了船舶以及海工产品的类型，强化了上市平台的定位，进一步的推动了船海产业方面做到更强，更旺。

亮点二：深入调整产品结构，造船，海工，动力，三箭齐发打造全球造船龙头

公司积极做产品结构调整，达到符合市场的要求，在巩固集装箱船、油轮、气体船等主力船型承接力度的基础上，加强关注小型船市场，企业最紧迫的任务是抢夺订单，为此，中国船舶紧跟市场，构建完善主流船型，加快实施豪华邮轮项目，突破海工装备自主设计瓶颈，将动力机电业务向产业链、价值链高端靠近。此外，其自主开发了较大吨位的散货船、运输船、成品油船、集装箱船等，并一步步有意在游轮市场占有一席之地。篇幅有限制，若是大家想了解更多关于中国船舶的深度分析，学姐都整理在这篇研报里了，大家赶紧浏览一下吧：【深度研报】 中国船舶点评，建议收藏！

二、从行业角度来看

疫情被控制住后，经济也开始逐渐复苏，在复工复产的背景下，大宗商品需求量大，也因此把船舶运输业带上了发展之路。我国民船龙头企业非中国船舶莫属了，对民船逐步回暖，以及造船业供给侧改革方面有很大的帮助；由此可看到中国船舶未来还是很有希望的，因此将率先享受到行业发展所带来的红利。总体来讲，中国船舶作为我国船舶制造业的老大，有望在行业变革之际，乘时代春风，迎来高速发展。然而文章会延迟，倘若有意了解中国船舶未来行情，马上点开链接，你的股票有专门的投资顾问判断，看一下中国船舶行情的详情：【免费】测一测中国船舶还有机会上车吗？

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

‘玖’ 如何用excel获取网页上的股票数据，并按照日期制成表格

打开通达信行情软件，切换到某个股票的K线图状态，再按F1，菜单“系统”里选择“数据导出”，点“高级导出”，文件名“.TXT”改为“.XLS"，点“添加品种”找到自己保存的股票，再点“开始导出”就OK了。

‘拾’ 有没有可以在excel上自动显示股票实时数据的方法

当然有，直接跟网页上的数据同步就行了，excel可以从网站抓数据的。