导出某日所有股票数据

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

‘贰’ 同花顺怎么下载个股的所有历史数据

同花顺下载个股的所有历史数据：
1、首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”；
2、点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt，，只有这二种格式可以选择；
3、选取好后点击下一步，在“导入导出对话框模板”中选择要的项目；
4、点下一步，完成。默认保存路径在桌面上。
一、同花顺软件
同花顺，是一款功能非常强大的免费网上股票证券交易分析软件，投资者炒股的必备工具。
同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件，它分为免费PC产品，付费PC产品，电脑平板产品，手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯，同花顺股票软件全新版免费免注册。全新版同花顺股票软件新增强大功能：自主研发的问财选股及自定义选股，问财选股是新一代自然语言选股，解析自然语言选出股票。 新增通达信模式。
同花顺面向客户可为银行、证券、保险、基金、私募、高校、政府等行业提供智能化解决方案。正在拓展至生活、医疗、教育等更多领域。
二、同花顺业务介绍
浙江核新同花顺（300033）网络信息股份有限公司前身为上海核新软件技术有限公司，成立于2001年8月24日。为使公司有更好的发展环境，于2007年5月迁址到杭州高新区。
企业由易峥等四个自然人和上海凯士奥投资咨询有限公司共同投资组建。企业在北京、上海、深圳、成都、西安、哈尔滨设立了6家分支机构，并拥有一家全资子公司杭州核新软件技术有限公司（成立于1994年）。
公司股本5.38亿元，从业人员约4000余人，其中研发人员和技术服务人员占65%以上。
公司是专业从事互联网炒股软件的开发、提供炒股数据和财经信息服务的高新技术企业，旗下拥有同花顺金融服务网、同花顺爱基金投资网，并推出了一系列形式丰富、独具特色的创新增值服务，深受广大证券公司、股民的欢迎。

‘叁’ 怎样导出股票历史价格数据

这里笔者以同花顺软件为例：
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位。

‘肆’ 如何将通达信软件所有股票的日K线数据导出

不可能一次性导出所有股票数据！只能一个一个来！x0dx0ax0dx0a1、打开通达信；x0dx0a2、进入要导出的股票的日K线页面；x0dx0a3、点击顶部工具栏的“系统”；x0dx0a4、选择“数据导出”；x0dx0a5、选择“excel“文件；x0dx0a6、选择保存文件的地址 和 文件名；x0dx0a7、点击“导出”；x0dx0a8、在6那里可以找到你要的数据了。

‘伍’ 怎么将股票中的数据导出到excel

1、首先在电脑桌面上打开股票软件。

‘陆’ 如何查询某只股票历史某一天的市值能否导出

1、首先在自己的小米手机上打开平安证券APP后，点击右下角“我的”，如下图所示。

‘柒’ 如何导出沪A所有股票某天行情

在你的炒股软件的沪A所有股票行情里，任选一行，点鼠标右键，选“数据导出”即可。
记得打赏我!

‘捌’ 通达信怎么把板块所有的股票导出

1.双击打开通达信平台，找到最上方的工具并鼠标左键点击。
2.点击“工具”在下拉框中找到“用户板块设置”。
3.打开设置后，在上方选择要导出的自定义板块。
4.在右下方选择导出板块并自定义文件名。
5.可以添加其他板块如定制品种，也可以从文本导入至制定板块。
（浏览器 电脑端：macbookpro mos14打开google版本 92.0.4515.131

）
拓展资料
一、查询方法：不管什么证卷，查股票都是一样的，如果不知道该股的沪漂代码，可以输入该股名称每个字的第一个字母就可以出现该股的股票代码。股票代码用数字表示股票的不同含义。股票代码除了区分各种股票，也有其潜在的意义，比如600***是上交所上市的股票代码，6006**是最早上市的股票，一个公司的股票代码跟车牌号差不多，能够显示出这个公司的实力以及知名度，比如000088盐田港，000888峨眉山。
二、大智慧：“信息地雷”提示陷阱 大智慧最独到之处是提供“信息地雷”的功能，并将地雷标志“*”显示在大盘或者个股的分时走势图顶端。只要在盘中出现重要市场评论及预测，买卖参考等内容，都会在相应的分时走势突然出现的异常上涨或下跌，往往与当前的消息面有直接关系，对于投资者来说信息地雷的提示，可以使他们在一定程序上避免掉入了解不及时的陷阱。
2、 行情传输： “时间就是金钱”，这句话运用在股市中是最贴切不过的了。有些主力控盘的个股，在短短一两分钟之内可以使得股价振幅接近10％或者更多，这时候如果是您手中的股票暖意从天上摔到地下，该有多心疼啊！虽然我们并不是在推崇炒庄股，但是股市分析软件的传输速度也确实是投资者在选择时需要考虑的重要因素之一。
三、手机版通达信，点击行情，向下滑动点击查看更多，这时就看见全部股票了。
用键盘输入06回车就到自选股界面，下面的菜单栏用左键就可以选择板块了。
1.如果你是使用一般的券商提供的交易软件，是按小键盘“67”，然后回车，可以显示所有A股的股票。2.如果你只记得公司的名字，而不记得代码，可以输入名字的拼音简写，例如，五粮液，就输入WLY，然后回车，就可以查找到了。3.如果你连公司的名字都不太记得，或者记错了，那你可以通过按“67”并且回车以后，在屏幕的最下方，点击“板块”，通过查找该公司所属的行业，或者地区，来查找该股票。

‘玖’ 通达信怎么导出历史单日分时成交明细

在个股K线图画面双击需要导出的日期K线，在出现的分时对话框中，点击下方的“操作”---明细数据导出，选择文本格式（一般选择：Excel文件），浏览---选取保存路径（桌面或除C盘以外的其它盘符）---导出即可。

股票交易是股票的买卖。股票交易主要有两种形式，一种是通过证券交易所买卖股票，称为场内交易;另一种是不通过证券交易所买卖股票，称为场外交易。大部分股票都是在证券交易所内买卖，场外交易只是以美国比较完善，其它国家要么没有、要么是处于萌芽阶段，股票交易(场内交易)的主要过程有:(1)开设帐户，顾客要买卖股票，应首先找经纪人公司开设帐户。(2)传递指令，开设帐户后，顾客就可以通过他的经纪人买卖股票。每次买卖股票，顾客都要给经纪人公司买卖指令，该公司将顾客指令迅速传递给它在交易所里的经纪人，由经纪人执行。(3)成交过程，交易所里的经纪人一接到指令，就迅速到买卖这种股票的交易站(在交易厅内，去执行命令。(4)交割，买卖股票成交后，买主付出现金取得股票，卖主交出股票取得现金。交割手续有的是成交后进行，有的则在一定时间内，如几天至几十天完成，通过清算公司办理。(5)过户，交割完毕后，新股东应到他持有股票的发行公司办理过户手续，即在该公司股东名册上登记他自己的名字及持有股份数等。完成这个步骤，股票交易即算最终完成。

新股民要做的第一件事就是为自己开立一个股票帐户(即股东卡)。股票帐户相当于一个"银行户头"，投资者只有开立了股票帐户才可进行证_买卖。

如要买卖在上海、深圳两地上市的股票，投资者需分别开设上海证_交易所股票帐户和深圳证_交易所股票帐户，开设上海、深圳A股股票帐户必须到证_登记公司或由其授权的开户代理点办理。

股票帐户有许多不同种类。个人投资者如需买卖沪、深股市的A股股票，则需开设A股股票帐户。

‘拾’ 如何导出股票涨跌幅

导出股票涨跌幅：点击工具-->用户板块设置-->选定“涨幅前50”-->点“导出”，点保存（另存为）即可。
进行交易的一般都称之为“商品”，股票也不例外，其价格也是由内在价值（标的公司价值）所决定的，而且波动在价值上下。
普通商品的价格波动规律就是股票的价格波动规律，市场上的供求关系影响着它的价格波动。
如同市场上的猪肉，猪肉需求变多，当市场上猪肉供不应求，价格上升是必然的事；当市场上的猪肉越来越多，而人们的需求却达不到那么多，供给大于需求，价格下降是理所当然的。
在股票上就会这样体现：10元/股的价格，50个人卖出，但市场上有100个买，那另外50个买不到的人就会以11元的价格买入，股价就会呈现上涨的趋势，反之就会下降（由于篇幅问题，这里将交易进行简化了）。
通常来说，会有多方面因素造成买卖双方的情绪波动，进而影响到供求关系，其中可能产生较大影响的因素有3个，下面我们逐一进行讲解。
在这之前，先给大家送波福利，免费领取各行业的龙头股详细信息，涵盖医疗、军工、新能源能热门产业，随时可能被删：【绝密】机构推荐的牛股名单泄露，限时速领！！

一、股票涨跌的原因有哪些呢？
1、政策
行业或产业的发展受国家政策引导，比如说新能源，前几年国家开始注重新能源的开发，对相关企业、产业对进行了扶持，比如补贴、减税等。
这就招来大量的市场资金，同时也会不断的探索相关行业的优秀板块，以及上市公司，这些都会影响股票的涨跌。
2、基本面
看长期的趋势，市场的走势和基本面相同，基本面向好，市场整体就向好，比如说疫情后我国经济回暖，企业的盈利情况也渐渐改善，股市也随之回升了。
3、行业景气度
这个是主要的一点，我们都知道股票的涨跌，是不会脱离行业走势的，这类公司的股票价格普遍上涨的原因是行业景气度好，比如上面说到的新能源。
为了让大家及时了解到最新资讯，我特地掏出了压箱底的宝贝--股市播报，能及时掌握企业信息、趋势拐点等，点击链接就能免费获取：【股市晴雨表】金融市场一手资讯播报
二、股票涨了就一定要买吗？
很多新手刚刚接触到股票，一看某支股票涨势大好，马上往里投了几万块，结果后来不断下跌，都被套住了。其实股票的变化趋势可以在短期被人为操纵，只要有人持有足够多的筹码，一般来说占据市场流通盘的40%，就可以完全控制股价。因此学姐建议刚接触股票的新手，把长期持有龙头股进行价值投资作为首要目标，避免短线投资被人割了韭菜。吐血整理！各大行业龙头股票一览表，建议收藏！

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