股票数据下载软件（股票数据下载）

sddy008 经验分享 2022-08-17 156 5

今天给各位分享股票数据下载的知识，其中也会对股票数据下载软件进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

1、wind怎么下载股票数据
2、如何下载股票历史成交数据到Excel或txt
3、股票数据在哪里能找到？
4、同花顺怎么下载个股的所有历史数据？

wind怎么下载股票数据

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

在“沪深日线”栏目下，将日线和实时行情选项打勾。

点击第一个日期后面的向下小三角，设置起始日期。

点击第二个日期后面的向下小三角，设置结束日期。

日期设置完毕后，点击开始下载。下载完成后你想要的时间段的日K线数据就已经保存到电脑里面了。如果还需要下载其他类型的数据，再分别选择下载。

如何下载股票历史成交数据到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

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 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)， " "， "")

jidu = Replace(Str(4 + 1 - m)， " "， "")

With objXML

.Open "GET"， "" + gp + ".html?year=" + nian + "season=" + jidu + ""， 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， jidu 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 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)， " "， "")

jidu = Replace(Str(4 + 1 - m)， " "， "")

s1 = "" + nian + "season=" + jidu + ""

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

历史数据

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建立炒股系统的整套方法，请看后续内容。"

赞赏

财富值赞赏答主

已获得0次赞赏

抢首赞

10财富值将发放到你账号

加入战队答题，平均奖励翻1.5倍

登录领取奖励

答案不满意？挑战答新题

加入战队答题，平均奖励翻1.5倍

贡献知识赢奖励

下一条回答

立即下载

为您推荐

长安十二时辰你看懂了吗

入乡随俗，一起探访唐朝衣食住行大小事

16个问题231,534人浏览

正在加载

加载失败点击重新加载

微信

微博

QQ空间

答案纠错

取消

赞赏答主

100

200

已赞赏0财富值

合计：0 财富值

登录后赞赏

选择举报类型

侵犯版权

色情低俗

涉嫌违法犯罪

时政信息不实

垃圾广告

低质灌水

工作人员会在48小时内处理,处理结果请关注系统通知,感谢您对百度知道的支持。

确定

void function(a,b,c,d,e,f){function g(b){a.attachEvent?a.attachEvent("onload",b,!1):a.addEventListener&&a.addEventListener("load",b)}function h(a,c,d){d=d||15;var e=new Date;e.setTime((new Date).getTime()+1e3*d),b.cookie=a+"="+escape(c)+";path=/;expires="+e.toGMTString()}function i(a){var c=b.cookie.match(new RegExp("(^| )"+a+"=([^;]*)(;|$)"));return null!=c?unescape(c[2]):null}function j(){var a=i("PMS_JT");if(a){h("PMS_JT","",-1);try{a=a.match(/{["']s["']:(\d+),["']r["']:["']([\s\S]+)["']}/),a=a&&a[1]&&a[2]?{s:parseInt(a[1]),r:a[2]}:{}}catch(c){a={}}a.r&&b.referrer.replace(/#.*/,"")!=a.r||alog("speed.set","wt",a.s)}}if(a.alogObjectConfig){var k=a.alogObjectConfig.sample,l=a.alogObjectConfig.rand;d="https:"===a.location.protocol?""+d:""+d,k&&l&&l>k||(g(function(){alog("speed.set","lt",+new Date),e=b.createElement(c),e.async=!0,e.src=d+"?v="+~(new Date/864e5)+~(new Date/864e5),f=b.getElementsByTagName(c)[0],f.parentNode.insertBefore(e,f)}),j())}}(window,document,"script","/hunter/alog/dp.mobile.min.js");

window.tt = 1660732448;

股票数据在哪里能找到？

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

股票数据可以在以下平台找到，股票市场上的一个下载网站，“i问财智能投顾”这是一个专门用来下载数据网站的股票市场，使用相对比较复杂，但在数据中取胜，而且免费。 Choice金融终端Wind是目前最主流的数据来源，券商基本上都在使用。在数据内容上差别不大，而且他们需要为此付费。成本比较高，所以不建议购买。个人数据源是这两种工具，加上用于数据处理的Excel，相对原始些。就像股票软件会有数据下载功能，提供更详细的信息，还会提供专业的工具如电子表格插件，下载数据的效率会更高，但这类信息软件要收费。

一般来说，股票的选择分为两个步骤，相关的数据下载和数据处理。在方法学中详细列出了每种选股方法学需要下载的数据，你可以在网站上下载。在这里，我分享一种直接顺手选股的方法。有一个选股功能在冲洗PC版本中,可以设置各种各样的选股数据点击后,可以直接输入筛选标准。

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

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

同花顺下载个股的所有历史数据：

1、首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”；

2、点击鼠标右键-数据导出-导出所有数据-在“请选择导出的类型”中选择excel或txt，，只有这二种格式可以选择；

3、选取好后点击下一步，在“导入导出对话框模板”中选择要的项目；

4、点下一步，完成。默认保存路径在桌面上。

一、同花顺软件

同花顺，是一款功能非常强大的免费网上股票证券交易分析软件，投资者炒股的必备工具。

同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件，它分为免费PC产品，付费PC产品，电脑平板产品，手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯，同花顺股票软件全新版免费免注册。全新版同花顺股票软件新增强大功能：自主研发的问财选股及自定义选股，问财选股是新一代自然语言选股，解析自然语言选出股票。新增通达信模式。

同花顺面向客户可为银行、证券、保险、基金、私募、高校、政府等行业提供智能化解决方案。正在拓展至生活、医疗、教育等更多领域。

二、同花顺业务介绍

浙江核新同花顺（300033）网络信息股份有限公司前身为上海核新软件技术有限公司，成立于2001年8月24日。为使公司有更好的发展环境，于2007年5月迁址到杭州高新区。

企业由易峥等四个自然人和上海凯士奥投资咨询有限公司共同投资组建。企业在北京、上海、深圳、成都、西安、哈尔滨设立了6家分支机构，并拥有一家全资子公司杭州核新软件技术有限公司（成立于1994年）。

公司股本5.38亿元，从业人员约4000余人，其中研发人员和技术服务人员占65%以上。

公司是专业从事互联网炒股软件的开发、提供炒股数据和财经信息服务的高新技术企业，旗下拥有同花顺金融服务网、同花顺爱基金投资网，并推出了一系列形式丰富、独具特色的创新增值服务，深受广大证券公司、股民的欢迎。

股票数据下载软件（股票数据下载）