导航:首页 > 数据行情 > 哪里能导出股票价格数据库

哪里能导出股票价格数据库

发布时间:2022-05-02 11:03:24

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

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

㈡ 如何导出股票数据

打开软件,点“系统”——“数据导出”,在打开的菜单面板里选择Excel,然后选择你要现在的数据,选择好保存路径,最后点确定,就OK了。

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

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

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

㈣ 如何下载股票历史成交数据到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、点击“系统/数据导出”,可惜导出的只有280个交易日的数据,即2010年2月以后的数据。也就是仅导出了“当前屏幕数据”。这样是不够的。可选导出文件格式,txt,excel两者选其一。
2、点击“系统/数据导出/高级导出”,选择几个股票,导出的是2007年之后的TXT格式数据,很高兴,多了很多,前进了一大步。但还是不够的。3、点击“系统/盘后数据下载”,选中“日线和实时行情数据”,选日期1995年1月1日-至今,取消“下载所有A股类所有的数据”的对勾,点击“添加品种”,添入自己想要的几个股票,再点击“开始下载”。4、重复第2步,这样导出才是1995以来的全部日K线数据。太高兴了。5、单支股票数据的导出:进入分析图,点右下“+”号,直到K线图不再增加K线,重复第1步。如此导出的将包括当前屏幕上的技术指标数据。但只能一次导出一支股票。打开导出的TXT文件,将数据复制导excel中,或者数据库中,就可以编程序分析了。

㈥ 怎么将股票中的数据导出到excel

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

㈦ 大家知不知道有哪个网站或软件能直接输出汇总的股票收盘价数据啊

微盛投资的wdz程序,专门输出各种格式(txt、excel、数据库等等)的股票数据。你一下wdz程序,就出来了。

㈧ 股票数据在哪里能找到

炒股朋友应该对数据感到焦虑,无论是市场数据、交易数据、各类报告数据都是一个头疼的问题,首先,股票数据的量一般都比较大。以一只股票为例,一个月通常会有20天左右的市场和交易数据,如果上市5年或10年,数据量是非常大的。还有分析评级报告、公司的各种公告等,数据五花八门。就这一点而言,一个分析师要获得这些数据是相当困难的。其次,虽然一般经纪、服务机构都会有这些数据,但是由于数据量大而不提供下载,虽然可以看到但不能下载,分析起来,更多的人访问没有门。当然,对于公司或机构的se数据非常简单,因为他们有专门的人员来获取,所以这些数据通常是收费的。

例如我集中在当前的股票市场上哪些股票的估值真的很低的股票和输入以下的选股标准,从3676只股票中选择了60只,在低估值的股票列表中我一般呆不到三个月就会上升离开,在一批新股票进来,股票池中的个股越多,当前的股市估值就越低,这种方法一度只产生了少数个股。可以筛选图表中的所有指标和数据,并自己理解为什么要这样做。

㈨ 哪个网站可以批量导出股票数据

直接用券商软件,导出数据,通达信是34快捷键!

㈩ 怎样导出股票历史价格数据

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

阅读全文

与哪里能导出股票价格数据库相关的资料

热点内容
股票涨为什么资金流还是流出 浏览:31
北京腾飞克科技有限公司股票代码 浏览:5
中国核电股票有多少 浏览:892
广发证券怎么买卖股票 浏览:671
前沿生物这样的股票会退市吗 浏览:346
st摘牌没停牌的股票 浏览:236
st股票10转10股是利好吗 浏览:574
同花顺股票软件手机版下载安装 浏览:634
股票账户里的市值什么意思 浏览:857
中国移动股票600050今曰行情 浏览:735
念佛人可以投资股票吗 浏览:429
中国软件一年前股票 浏览:962
股票同期涨幅公式 浏览:911
中国的重要股票指数 浏览:468
股票天机科技 浏览:342
投资和股票有什么区别是什么 浏览:625
中金集团股票最新消息 浏览:871
长江证券这个股票能买吗 浏览:874
股票分控软件下载 浏览:180
股票投资入门与实战指南 浏览:601