r获取所有股票数据库

Ⅰ 如何下载股票历史成交数据到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、打开股票软件；

2、点击下方【行业】，可以查看所有的按行业划分的板块；

Ⅲ 如何下载股票历史数据

方法/步骤1:

登录股票软件，点击左上角系统，选择子菜单下面的盘后数据下载。

注意事项

系统下载的数据时间段越长，能够看到的数据就越多，越能帮助全面分析。

此方法只适用于部分股票分析软件。

Ⅳ 华泰证券怎么查板块的所有股票

一、把鼠标移到在分时图上，点击右键，弹出的菜单上选择“所属板块”一栏（或用快捷键Ctrl+R），会弹出一对话框，上面有股票所属的行业、地区、概念板块。如华北高速（000916）所属板块为：北京板块 地区公路桥梁 行业深证央企 概念央企控股 概念又如：广州浪奇（000523）所属板块：广东板块 地区化工行业 ；

二、在股票软件里找版块就直接输入版块的前二个拼音字母， 要找个股股票就直接输入个股的每个汉字的前面一个拼音字母。
股票板块主要是按行业、概念、地区分类。其中行业是根据上市公司所从事的领域划分的 比如煤炭、纺织、医药等;地区主要是根据省份划分的;概念是根据权重、热点、特色题材划分的。
一个主题股或一个两个热点板块形成过程中，盘面上会形成下列特征：
1、个股或整个板块成交量明显连续增加.
2、股价波动连续增大，收盘时经常拉尾市或打尾市；开盘、中盘时也有此现象出现。
3、某一板块的股价走势配合换手率的增加开始由弱转强。大盘下跌时，个股和板块不跌，大盘涨，板块涨势超大盘，该板块可能成为市场热点。

Ⅳ 开发炒股软件，从哪里获得股票数据

行情数据源在上交所和深交所。需要购买。而且很贵。

象我们平常看到行情，是券商营业部所买，我们连到他们服务器，而接收到数据。

P2P数据接口使用说明(1)2009-03-18 08:58接口使用说明:
1. 压缩包包含四个文件，分别为P2P.exe，P2P.CFG，zlib.dll和使用说明.txt，可以解压到任意盘任意目录下使用。
2. 支持的行情分析软件有:
(1) 分析家2006，2005等，要求分析家主窗口标题最前面的几个字是"分析家 -"，是否是破解版关系不大，最好是下载分析家官方网站的正版分析家，网址是http://www.fxj.com.cn，分析家其他版本号是否支持，我也没全做试验。
(2) 飞狐交易师，支持飞狐交易师，要求飞狐交易师主窗口标题最前面的几个字是"飞狐交易师"或"证券分析师"，是否是破解版关系不大，最好是支持正版，用正版的。
(3) 大智慧新一代，要求大智慧主窗口标题最前面的几个字是"大智慧Level" 支持的版本号有 09.0226，08.0907，08.0801，07.0205 共四个。
注：如果分析软件的窗口标题不符合上面说的，则分析软件无法接收数据。以上三个分析软件最好都是正版的，只要下载正版的软件，安装后，无需做任何修改即可使用。接口再次说明一下，接口中的四个文件解压到任意目录下使用都可以，而无需解压到某个分析软件的某个目录下，或替代某个分析软件的某个文件。接口完全是绿色的，无需安装，也不会在注册表中留下任何信息。
3. 每天9:15分以后用行情软件中的数据管理功能先清除当天的行情数据，然后把右下角“发送数据”发送数据前面的钩选上。
4. 如果不能在开盘前打开该软件，比如10点半才打开，那么该接口会自动补充10点半之前的行情数据，为了能够尽快的把前面的数据补充完毕，请把速度调节到100以上。但如果是飞狐，则把该值调低一些，否则飞狐会来不及处理数据，把大量的数据放到内存中，造成飞狐使用内存越来越大，最后由于内存耗完造成飞狐或接口非法退出。大智慧和分析家则不存在这个问题。
5. 收盘后，该接口具有白天行情的回放功能，回放前，最好先清除行情软件中当天的行情数据。
6. 该接口由于是P2P接收数据，因此数据接收需要种子，只有和别的种子连上了，你就能接收数据了，你至少要和一个种子连上，当然，你连上别的种子后，你也就能称为种子了，你也就能为别的人提供数据服务功能了。
7. 两个人要连接成功，最好两个人中有一个人的IP地址是公网地址，如果两个全是内网地址则相互无法直接联通，必须借助第三方才能联通，该方法这里不再介绍了。
8. 如果网络情况比较良好，则行情数据的延时一般不会大于0.5秒。
9. 接口的P2P连接信息中的字段说明
(1). 远程完成--为该IP接收到完整数据包的个数。
(2). 远程请求--为该IP请求你发送的数据包序号。
(3). 本机请求--为本机请求远程发送数据包序号。
(4). 请求返回--远程响应本机请求的次数。

Ⅵ 可以获得国内股票和期货tick级别历史数据的数据库有哪些

可以通过交易所的授权数据提供商获得国内股票和期货tick级别历史数据。
很多人喜欢做短线，觉得短线刺激，长线持股待涨这种等待实在没有办法承受，但是倘若大家不会做短线，很大概率会亏得更快。今天就把我独有的做T的秘籍分享给大家。
在开始以前，大家可以看一下我为大家准备的一点惊喜，机构精选的牛股大盘点--速领！今日机构牛股名单新鲜出炉！
一、股票做T是什么意思
如果今天买入一只股票，但是又想卖出，那么只能隔天在操作，这就是A股的交易市场模式T＋1。
而股票做T，股票进行T＋0的交易操作就是指把当天买进的股票当天再卖出去，投资人通过可以交易股票的当天的涨跌做差价，当股票处于大幅下跌时，立刻买入，等涨到一定的高度就马上转卖，钱就是这样挣到的。
列举一下，1000股的xx股票在昨天我本来就持有着，市价10元/股。在今早是发现该股已经跌到了9.5元/股，立马又跟进了1000股。到了下午，这支股票的价格就突然上涨到没有想到的价格--10.5元/股，我就立刻以这个价格售出去1000股，从而赚取（10.5－9.5）×1000＝1000元的差价，这就是做T的过程。
但是，不是每种股票做T都合适！正常来说，日内振幅空间较大的股票，这类是比较适合做T的，比如，每日存在5%的振幅空间。对某只股票了解不够，没有把握的，不妨就点开这里看看吧，有专业的人员去为你诊断T股票，从而选择出最适合你的！【免费】测一测你的股票到底好不好？
二、股票做T怎么操作
那股票做T到底怎么操作？一般有两种方式：正T和倒T。
正T即先买后卖，这股票一直在投资者手里面持有着，投资者在开盘当天股票下跌到低点时买入1000股，股票当天冲到最高点的时候，将这1000股票托盘而出，这样总持股数保持不变，T＋0这样的效果也就能够体现到了，又能够享有中间赚取的差价。
而倒T即先卖后买。投资者预计到股票将大幅下跌的征兆，所以就在高位点先卖出持有的一部分股票，等股价回落后再买进，总量仍旧有办法保持不变，但能获取收益。
比方投资者，他占有该股2000股，每一股的价格在当天早上是10元，觉得该股的市价马上就会做出调整，，于是卖出手中的1500股，在股票下降到9.5元/股时，他们就能从这只股票中获得比较丰厚的利益，再买入1500股，这就赚取了（10-9.5）×1500＝750元的差价。
这时就有人问了，可以买入的低点是什么时候，可以卖出的高点又是什么时候要怎样知道呢？
其实只要拥有一款买卖点捕捉神器，就可以判断股票的趋势，就能轻松帮你抓住每一个重要时机，如果想领取的话请点开链接：【智能AI助攻】一键获取买卖机会

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

Ⅶ 在哪里可以找到股票历史数据形成的数据库

大富翁数据中心提供国内股票和期货tick级别历史数据的数据库，各级别分钟数据也有，外盘也有提供，都是纯文本，质量很高