导航:首页 > 数据行情 > 怎么把股票里的数据复制出来的

怎么把股票里的数据复制出来的

发布时间:2023-02-07 14:24:43

① 如何下载股票历史成交数据到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、打开同花顺股票交易系统,输入个股代码,在K线图界面,按F1进入历史成交,往上翻,翻到要导出数据的起始点,点鼠标右键,数据导出,导出所有数据,下一步,下一步,完成,默认保存在桌面上。
2、同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件,它分为免费PC产品,付费PC产品,电脑平板产品,手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯,同花顺股票软件全新版免注册。全新版同花顺股票软件新增强大功能:自主研发的搜牛财经及自定义选股,新增通达信模式。

③ 怎么把股票软件里面的报表数据导出来

具体步骤如下:

1、打开行情软件,点击主页最左上角的【系统】/【数据导出】,如下图所示

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

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

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

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

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

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

行情软件里面有,可以自己去导出。一般在页面左上角,系统里面的数据导出,在高级导出。最近几年的行情在里面。
股票价格导出excel表格流程:1、依次点击:数据--导入外部数据--新建web查询--输入源数据网址--在网页上选择要导入的数据。2、当网页数据变化时只要在右键菜单中选择“刷新”即可。另外还可设置定时刷新。3、用这种方法可以把网站公布的实时行情自动导入到excel表中。
股票是股份公司所有权的一部分,也是发行的所有权凭证,是股份公司为筹集资金而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。

⑦ 如何把同花顺中自己的股票历史成交记录导成EXCEL格式

1、首先,新建一个工作表,选中任意一个空单元格。选择【数据】-【自网】。 2、在【新建Web查询】界面我们可以看到最左上角是地址栏。点击界面右上角的【选项】可以查看导入信息的设置,可以根据实际情况进行选择。
3、在【新建Web查询】界面的地址栏输入包含你想要股票信息的网站,然后点击【转到】按钮跳转到指定网站。
4、浏览整个页面,可以看到很多标有黄色箭头的区域,这些是可以导入的数据标识。我们选择自己想要的信息框左上角的黄色箭头。
5、点击后,黄色箭头就会变成绿色箭头,如下图。然后点击右下角的【导入】按钮。
6、在【导入数据】的对话框选择数据要存储的位置。
7、在这个界面,点击左下角的【属性】可以设置刷新频率、数据变更时如何处置等。
8、设置完上述内容后,返回【导入数据】界面并点击【确定】按钮。
9、下面数据将会自动导入,稍等片刻数据即导入完成。每隔10分钟该数据就会自动刷新。


另外。要确定自己有一个pdf文档,而且确定目的是需要将pdf文档转换为word格式,然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件.接着在迅捷pdf转换器下方按自己的需要是否更改文件名,然而在保存类型中选择*.doc选项。.全部设置完成点击开始转换,确定自己设置好路径、更改文件名和保存类型即可.转换完成之后的word文档同样可以通过迅捷pdf转换器重新转换成一开始的pdf文档。

⑧ 用什么软件可以导出股票的数据,如成交量,换手率,价格等。我用了很多软件同花顺,通信达,大智慧都导不

通信达可以做到,它可以导出开盘、最高、最低、收盘、成交量等数据。通过系统 - 数据导出,选择格式为文本(.TXT)文档或Excel(.XLS)文件即可。
我们经常挂在嘴边的股票成交量,也就是买股票和卖出股票数量的总和,换句话说,就是在这一天成功发生交易的股票总手数(1手=100股)
笼统地说,股票成交量能体现出个股或者大盘的活跃程度,有助于我们从众多股票中选中最好的一个、识别买入和卖出的时机。
看股票成交量的具体办法都有哪些?有什么分析技巧?又有哪些地方需要我们注意呢?我来为大家做详细的说明,大家可以接着往下看。
在这之前,先给大家发福利,我整理各行业的龙头股信息,涉及医疗、新能源、白酒、军工等热门行业,随时可能被删:吐血整理!各大行业龙头股票一览表,建议收藏!
一、股票成交量怎么看?有什么分析技巧?
想知道股票成交量的话可以看交易软件,通过看开盘时的买入卖出量来确定成交量。或者看红绿柱,这些都可以直接表明出股票的成交量:红柱体代表买入﹥卖出;绿柱体代表买入﹤卖出。
要想股票炒得好,实用工具少不了,吐血整理的【股票研究9大神器】。点击领取:超实用炒股的九大神器,建议收藏

二、股票成交量大就一定好吗?
股票的成交量并不能证明这只股票就是好的,只能关于这支股票的价格,说买卖双方有着非常大的分歧。
像一些热门股票,买的人认为价格会上涨,卖的人认为价格会下跌,双方分歧很大,那成交量就会很高,反之成交量就很低。
成交量通常和股价趋势结合在一起看会更好:上涨趋势中,成交量迅速放大,价格随之不断上升,买卖双方的分歧越来越剧烈,越来越多的持有者在卖出股票,此时追涨需要有所戒备了;成交量会随趋势下跌而减少,买卖双方意见相同,未来就很有可能会继续下跌。
除此之外,股票成交量还有其他几种情况,出于文章的限制,我就不详细说明了,大家可以点击下方链接,输入你中意的股票,就能免费获得个股成交量分析报告:【免费】测一测你的股票当前估值位置?

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

新浪财经如何将股票历史数据复制到excel

方法:首先切换到要下载数据的股票K线形态,按“F1”进入“日线某某股票历史成交”,点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt,,只有这二种格式可以选择;选取好后点击下一步,在“导入导出对话框模板”中选择你要的项目(如最高价、最低价,开盘价等,默认是全选),点下一步,完成。默认保存路径在桌面上。没有批量下载,只能一个一个来。
股票是股份公司发行的所有权凭证,是股份公司为筹集资金而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。每股股票都代表股东对企业拥有一个基本单位的所有权。每支股票背后都有一家上市公司。同时,每家上市公司都会发行股票的。
同一类别的每一份股票所代表的公司所有权是相等的。每个股东所拥有的公司所有权份额的大小,取决于其持有的股票数量占公司总股本的比重。
股票是股份公司资本的构成部分,可以转让、买卖或作价抵押,是资本市场的主要长期信用工具,但不能要求公司返还其出资。

阅读全文

与怎么把股票里的数据复制出来的相关的资料

热点内容
美邦股票走势 浏览:142
股票账户会有利息吗 浏览:415
股票长期持仓要费用吗 浏览:713
中国哪些股票在美国上市 浏览:685
excel股票实时数据视频 浏览:492
鱼跃医疗的股票趋势分析 浏览:114
中国哪些公司股票 浏览:149
股票主力卖出大于买入 浏览:434
股票软件能交易的基金 浏览:155
国海证券配股的股票啥时候上市 浏览:239
片仔癀这支股票还有投资前景吗 浏览:590
新农开发股票最新走势分析 浏览:694
格力电器股票走势图3年 浏览:743
上海之江生物科技股份有限公司股票代码 浏览:95
散户长期关注几只股票为好 浏览:860
看股票行情哪个软件最好 浏览:394
芯丝科技股票代码 浏览:370
长期股票投资杰里米西格尔 浏览:883
金股票投资分析报告 浏览:1
振华重工股票今日能涨停吗 浏览:369