上证官网下载数据（上证50数据下载）

2022-10-22 9:24:15 股票 xialuotejs

61|0条评论

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

怎么在wind资讯中找到上证综指的历史数据

wind资讯提供的是实时上证综指，上证综指的历史数据要到上海证券交易所官网查询。

（1）首先打开上海证券交易所官网；

（2）然后再上海证券交易所官网页面的右下角找到【统计数据】，点击右面的箭头；

（3）假设要查询【2019年8月16日】的上证综指，在弹出的页面中点击【每日概况】；

（4）在【每日概况】的右侧日期栏（如下图红框中所示）输入要查询的日期，这个日期的上证综指就会在下面显示出来，

扩展资料：

（1）上证指数的修正公式

上证指数系列均采用“除数修正法”修正。

当成份股名单发生变化或成份股的股本结构发生变化或成份股的市值出现非交易因素的变动时，采用“除数修正法”修正原固定除数，以保证指数的连续性。

修正公式为：修正前的市值 / 原除数 = 修正后的市值 / 新除数

其中，修正后的市值 = 修正前的市值 + 新增（减）市值；由此公式得出新除数（即修正后的除数，又称新基期），并据此计算以后的指数。

（2）上证指数的需要修正的几种情况

新上市--凡有成份股新上市，上市后第一个交易日计入指数（上证180指数除外）。

除息--凡有成份股除息（分红派息），指数不予修正，任其自然回落。

除权--凡有成份股送股或配股，在成份股的除权基准日前修正指数。

修正后市值 = 除权报价×除权后的股本数+修正前市值（不含除权股票）。

汇率变动--每一交易周的最后一个交易日，根据中国外汇交易中心该日人民币兑美元的中间价修正指数。

停牌--当某一成份股在交易时间内突然停牌，取其最后成交价计算即时指数，直至收盘。

暂停交易--当某一成份股暂停交易时，不作任何调整，用该股票暂停交易的前一交易日收盘价直接计算指数。若停牌时间超过两日以上，则予以撤权，待其复牌后再予复权。

摘牌 --凡有成份股摘牌（终止交易），在其摘牌日前进行指数修正。

股本变动--凡有成份股发生其他股本变动（如内部职工股上市引起的流通股本增加等），在成份股的股本变动日前修正指数。

修正后市值 = 收盘价×调整后的股本数+修正前市值（不含变动股票）。

停市--A股或B股部分停市时，指数照常计算；A股与B股全部停市时，指数停止计算。

怎么获取上证指数数据

可以通过股票交易软件、上海证交所网站、其他证券资讯网站查询上证指数数据。

股市指数，简单来说，就是由证券交易所或金融服务机构编制的、表明股票行市变动的一种供参考的数字。

通过查看指数，对于当前各个股票市场的涨跌情况我们将了然于胸。

股票指数的编排原理是比较复杂的，就不在这儿详细分析了，点击下方链接，教你快速看懂指数：新手小白必备的股市基础知识大全

一、国内常见的指数有哪些？

会由股票指数的编制方法和性质来分类，股票指数大致分为这五种类型：规模指数、行业指数、主题指数、风格指数和策略指数。

其中，见的最多的就是规模指数，好比各位常见的“沪深300”指数，说明了交易比较活跃的300家大型企业的股票在沪深市场上都具有比较好的代表性和流动性一个整体状况。

当然还有，“上证50 ”指数的性质也是规模指数，指的是上海证券市场机具代表性的50只股票的整体情况。

行业指数代表就是它某个行业的一个整体状况。比如“沪深300医药”就是行业指数，由沪深300中的17支医药卫生行业股票构成，这也是反映了该行业公司股票的一个整体的表现究竟如何。

主题指数，则代表某一主题（如人工智能、新能源汽车等）的整体情况，那么相关指数有“科技龙头”、“新能源车”等。

想了解更多的指数分类，可以通过下载下方的几个炒股神器来获取详细的分析：炒股的九大神器免费领取（附分享码）

二、股票指数有什么用？

根据上述的文章内容可以知道，市场上有代表性的股票，是指数所选取的，因此通过指数，我们可以快速了解市场整体涨跌情况，这就能清楚地了解市场的热度，甚至将来的走势都能够被预测到。具体则可以点击下面的链接，获取专业报告，学习分析的思路：最新行业研报免费分享

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

同花顺如何下载上证历史数据

在功能---工具---数据下载

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

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