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

这里笔者以同花顺软件为例：

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位。

安信证券如何导出创业板股票数据

安信证券可以通过以下步骤导出创业板股票数据：

1.登录安信证券账户，点击“行情”选项卡；

2.点击“指数”标签，进入“指数”页面；

3.在指数列表中，选择“深圳创业板指数”，点击“查看”按钮；

4.在“深简拿圳创业板指数”详情饥侍页面中，点击“下载数烂咐吵据”按钮，下载深圳创业板股票数据到本地文件中。

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

历史数据

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

回答于 2021-11-11

抢首赞

已踩

下一条回答

下一条

立即下载

长安十二时辰你看懂了吗

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

16个问题231,534人浏览

— 为你推荐更多精彩内容 —

正在加载

加载失败 点击重新加载

微信

微博

QQ

QQ空间

答案纠错

举报

取消

赞赏答主

5

10

50

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 = 1684173624;

怎么将股票一年价格倒出来

行情软件里面有，可以自己去导出。一般在页面左上角，系统里面的数据导出，在高级导出。培唯最近几年的行情在里面。

股票价格导出excel表格流程：1、依次点击：数据--导入外部数配虚培据--新建web查询--输入源数据网址--在网页上选择要导入的数据。2、当网页数据变化时只要在右键菜单中选择“刷新”即可。另外还可设置定时刷新。3、用这种方法可以把网站公布的实时行情自动导入到excel表中。

股票是股份公司所有权的一部分，也是发行的所有权凭证，是股份公司为筹集资金誉茄而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。

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

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”并且回车以后，在屏幕的最下方，点击“板块”，通过查找该公司所属的行业，或者地区，来查找该股票。

将股票信息导出的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于将股票信息导出的软件、将股票信息导出的信息别忘了在周记财经网进行查找喔。