如何将一只股票的数据

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

B. 某只股票的外盘和内盘的历史数据如何查询

股票的外盘和内盘历史数据是无法查询的，只能查询当天总交易量，外盘内盘不是绝对的。很多新人，甚至说很多老股民，对内外盘的概念都不太懂，这就很容易被庄家欺骗。那就给大家解释一下，为了减轻入坑，希望大家一定要耐心的看下去。
开始分析之前，先送福利，股票9大神器免费送，除了可以帮你看报告、还可以找数据、分析行情，非常方便实用：超实用炒股的九大神器，建议收藏
一、股票里的外盘内盘是什么意思？
1、内盘
内盘指的啥？指主动卖出成交的数量，以低于或者等于当前买一、买二、买三的价格卖出的是卖方主动下单卖出的股票。
2、外盘
其中，主动买入成交的数量是指外盘，也就是买方主动以低于或者等于当前买一、买二、买三等价格下单买入股票时的成交量。

二、外盘大于内盘和内盘大于外盘代表什么意思？
理论上来论述的话：外盘大于内盘，说明多方强于空方，股价即将上涨；当股价即将下跌，空方强于多方时，我们可以看出内盘大于外盘。
可是股市存在很大的不确定性，除了估值、大盘之外，还有政策、主力资金等多方面因素都能影响股价，为了让股票小白也能好好的评判一只股票，看下面的这个诊股网站，能快速判断你的那只股票好不好，快快收藏吧：【免费】测一测你的股票到底好不好？
三、怎么运用内外盘来判断股价？
内外盘大小不能准确的判断股价的涨跌，因为有时候它们很有迷惑性。
比如说外盘大，也只能代表这只股票主动买入多，但很多跌停的股票外盘都很大，重要的一点是因为跌停时不可以卖出只能选择买入。
还有就是，股票的内外盘不一定是真实的，很有可能是人为做出来的。比如说某股票的庄家，目的就是取得更多的筹码，后续也好高位抛售，庄家会在卖一到卖五时，把大量的单故意抛出来，股民一看就认为股价下跌趋势很强，肯定会跟着别人卖出，这种情况就会使内盘大于外盘，让股价看起来很弱。
所以内外盘不是决定股价的唯一因素，我们不能只靠他们就随便下结论，只通过存在人为操纵的内外盘来决定买入或卖出，具有较高的风险，影响估价的因素是多方面的，想要找到合适的买卖时机，我们还得多考察市场趋势、多观察拐点等，下面的买卖机会提示神器，能帮助新手轻松锁定卖点，避免掉入内外盘的陷阱：【AI辅助决策】买卖时机捕捉神器

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

C. 如何从股票数据中预测股票涨跌

股票具有商品的属性，说白了就是一种“商品”，和别的商品一样，它的价格也受到它的内在价值（标的公司价值）的控制，而且波动在价值上下。
股票的价格波动也和普通商品一样，市场上的供求关系影响着它的价格波动。
就像猪肉，当对猪肉的需求增多了，当市场上猪肉供不应求，价格上升是必然的事；当猪肉产量不断增加，猪肉供给过剩，价格下降是理所当然的。
股票的价格波动表现为：10元/股的价格，50个人卖出，但市场上有100个买，那另外50个买不到的人就会以11元的价格买入，股价就会上涨，反之就会下跌（由于篇幅问题，这里将交易进行简化了）。
一般来说，导致双方情绪变化的原因非常多，这时供求关系也会受到影响，其中会对此起到深远影响的因素有3个，下文将一一讲解。
在这之前，先给大家送波福利，免费领取各行业的龙头股详细信息，涵盖医疗、军工、新能源能热门产业，随时可能被删：【绝密】机构推荐的牛股名单泄露，限时速领！！

一、造成股票涨跌的因素有哪些？
1、政策
国家政策对行业或者产业有一定的引导意义，比如说新能源，几年前我国开始重视新能源产业，针对相关的企业、产业都展开了帮扶计划，比如补贴、减税等。
这就成功吸引了大量资金涌入该市场，而且还会不断找寻相关行业板块以及上市公司，进一步造成股票的涨跌。
2、基本面
长期来看，市场的走势和基本面相同，基本面向好，市场整体就向好，比如说疫情下我国经济最先进入恢复期，企业有所盈利，那股市也会跟着回升。
3、行业景气度
这个是十分重要的，我们都知道股票的涨跌，是不会脱离行业走势的，反之，行业越不景气，这类公司的的股票价格变会普遍下降，比如上面说到的新能源。
为了让大家及时了解到最新资讯，我特地掏出了压箱底的宝贝--股市播报，能及时掌握企业信息、趋势拐点等，点击链接就能免费获取：【股市晴雨表】金融市场一手资讯播报
二、股票涨了就一定要买吗？
很多新手并不是了解股票很长时间，一看某支股票涨势大好，赶紧买上几万块，入手之后一直跌，被死死地套住了。其实股票的涨跌在短期内是可以人为控制的，只要有人持有足够多的筹码，一般来说占据市场流通盘的40%，就可以完全控制股价。如果你刚刚接触股票不久，把选择长期占有龙头股进行价值投入作为重点考虑项目避免短线投资亏本。吐血整理！各大行业龙头股票一览表，建议收藏！

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

D. 如何导出股票的全部行情数据

不同的股票客户端导出方式不一样，以同花顺为例供您参考：
1、打开软件登录，选择“自选股”，找出需要下载的股票；
2、在要导出数据的股票上点击右键，选择数据导出；
3、选择excel文件的导出地址，选择所需数据范围日期，点击下一步；
4、打开excel数据文件查看。

温馨提示：以上步骤供您参考。
应答时间：2021-05-27，最新业务变化请以平安银行官网公布为准。
[平安银行我知道]想要知道更多？快来看“平安银行我知道”吧~
https://b.pingan.com.cn/paim/iknow/index.html

E. 有哪一款股票软件可以将k线数据批量导出，请高手指教

同花顺等软件可以。
炒股有一个常用的方法：看股票K线。股市一直都是起起伏伏，要想了解可以利用K线，试着找出一些“规律”，才能分析清楚进而更好投资，获得收益。
教大家如何来看K线，教朋友们自己怎么去分析。
分享之前，先免费送给大家几个炒股神器，能帮你收集分析数据、估值、了解最新资讯等等，都是我常用的实用工具，建议收藏：炒股的九大神器免费领取（附分享码）
一、 股票K线是什么意思？
K线图还有许多其他的叫法，如蜡烛图、日本线、阴阳线等，K线才是它最常见的叫法，它的发明是为了更好的计算米价的涨跌，之后股票、期货、期权等证券市场都能运用到它。
一条有影线和实体构成的柱状条我们称为k线。影线在实体上方的部分叫上影线,下方的部分叫下影线，实体分阳线和阴线。
Ps：影线代表的是当天交易的最高和最低价，实体表示的是当天的开盘价和收盘价。
其中阳线常常可以被红色、白色柱体或者黑框空心表示，而阴线则用绿色、黑色或者蓝色实柱体表示，

除了以上情况，大家目测到“十字线”的时候，就意味着是实体部分转换成一条线
其实十字线很好理解，它表示的是当天的的收盘价=开盘价。
经过对K线的剖析，我们可以出色的找到买卖点（虽然股市根本是没有办法预测的，但是K线也会有一定的指导的价值的），对于新手来说，还是最容易操作的。
在这里，我要给大家提个醒，K线解析起来是有一些复杂的，若是刚刚炒股的你还不了解K线，建议用一些辅助工具来帮你判断一只股票是否值得买。
比如说下面的诊股链接，输入你中意的股票代码，就能自动帮你估值、分析大盘形势等等，我刚开始炒股的时候就用这种方法来过渡，非常方便：【免费】测一测你的股票当前估值位置？
下面有几个关于K线分析的小妙招，接下来我就给大家讲讲，帮助你快速入门。
二、怎么用股票K线进行技术分析？
1、实体线为阴线
这个时候就是需要大家值得注意的是股票成交量，如果成交量不大的话，那就代表股价可能会短期下降；如果出现成交量很大的情况，股价肯定要长期下跌了。
2、实体线为阳线
实体线为阳线这就表明了股价上涨动力更足，但是到底会不会长期上涨呢？这就要结合其他指标进行判断了。
比如说大盘形式、行业前景、估值等等因素/指标，但是由于篇幅问题，不能展开细讲，大家可以点击下方链接了解：新手小白必备的股市基础知识大全

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

F. 通过什么方式可以将所选股票的收盘价导出放入Excel工作表

1、首先将excel这款软件打开，进入到该软件的操作界面，在菜单里找到数据选项。

G. 如何用同花顺一次性导出所有股票的历史数据excel，不是某一只股票的历史数据，也不是所有股票的当日数据；

1. 首先点按电脑界面上的同花顺图标
2. 输入用户名和密码之后点按登录
3. 进入同花顺界面后点按界面左侧的自选股按钮 然后点按自选股中收藏的某个股票
4. 右键点按自选股中收藏的某支股票 在弹出的菜单中点按数据导出 然后在二级菜单中点按导出所有数据
5. 在浏览按钮下选择导出文件位置 这里选择了桌面 然后选择导出的类型为excel 然后点按下一步
6. 勾选所有需要导出的项目 然后点按下一步
7. 最后点按完成
8. 此时在桌面上可以看到导出的文件 文件名字为table 双击进入该文件
9. 打开excel文件之后选中行标2行标3 然后点按右键 然后在弹出的菜单中点按复制
10. 点按复制之后 着两行周围出现闪烁的虚线
11. 为这两行新添加的数据添加日期
12. 点按数据下的排序按钮 以名称为第一关键字 日期为第二关键字进行排序
同花顺，是一款功能非常强大的免费网上股票证券交易分析软件，投资者炒股的必备工具。
同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件，它分为免费PC产品，付费PC产品，电脑平板产品，手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯，同花顺股票软件全新版免费免注册。全新版同花顺股票软件新增强大功能：自主研发的问财选股及自定义选股，问财选股是新一代自然语言选股，解析自然语言选出股票。新增通达信模式。
同花顺面向客户可为银行、证券、保险、基金、私募、高校、政府等行业提供智能化解决方案。正在拓展至生活、医疗、教育等更多领域。
2020年1月9日，胡润研究院发布《2019胡润中国500强民营企业》，同花顺以市值490亿元位列第135位。

H. 想要在电脑统计中找到一只股票在400天内的最低收盘价，应该怎么做

现在我们的电脑使我们的生活真的非常的方便，电脑上许多的应用，可以做到我们日常许多工作的帮助，让我们做到更加快速简洁，准确地整理一些数据，而且可以通过列图表的形式更加直观的看到一些走势和趋势，所以现在越来越多的软件可以开发，以帮助我们完成日常非常复杂的数据整理问题，但是现在这些统计的方法还是计算机专业的比较，精通大多数人并不是很了解，所以现在我们来介绍一下如何在统计中计算出400天内股票的最低，收盘价首先我们在电脑的桌面上建立一个Excel的文档。

I. 怎么把一只股票的历史数据导入excel

一般来讲，股票软件中的数据都可以导出为excel文件、或者txt文件。
如果能直接导出为excel文件那最好；
如果只能导出为txt文件，那么可以在excel中通过“数据”这个菜单下的导入功能、或者“自文本”功能把txt文件中的数据导入到excel文件。

J. 怎样查询一只股票的历史行情详细数据，高分求详细步骤

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