股票交易接口(股票交易数据)

sddy008 经验之谈 2022-08-23 103 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

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

赞赏

财富值赞赏答主

已获得0次赞赏

抢首赞

10财富值将发放到你账号

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

登录领取奖励

答案不满意?挑战答新题

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

贡献知识赢奖励

下一条回答

立即下载

为您推荐

长安十二时辰你看懂了吗

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

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

如何查询当日股票交易数据

查询方法:

1,股票软件一般也都有数据输出的功能,可以把股票交易数据输出到execl等文件,再进行查询即可。

2,可以去开户的营业部打印所有的交易记录清单。带上身份证和股东卡就可以了。营业部是查询的到相关的数据的。一般办理此业务都是免费的。

股票是股份公司发行的所有权凭证,是股份公司为筹集资金而发行给各个股东作为持股凭证并借以取得股息和红利的一种有价证券。每股股票都代表股东对企业拥有一个基本单位的所有权。每支股票背后都有一家上市公司。同时,每家上市公司都会发行股票的。

同一类别的每一份股票所代表的公司所有权是相等的。每个股东所拥有的公司所有权份额的大小,取决于其持有的股票数量占公司总股本的比重。

股票是股份公司资本的构成部分,可以转让、买卖,是资本市场的主要长期信用工具,但不能要求公司返还其出资。

如何获取股票交易数据

你指的交易数据是什么,如果是自己的交易数据的话,你使用的券商是会提供每次交易的交割单的,在交易软件上也能看到你每笔交易的委托和成交明细。

如果是市场上所有人的交易数据的话,这个是拿不到的。能拿到交易数据的都是各大券商,交易所和上市公司,但是上市公司是只能拿到自己公司的股票交易数据。

股票怎么查历史数据

1、打开自己的手机桌面,选择大智慧这个图标进入。

2、下一步,需要在主页中点击右上角的按钮。

3、这个时候来到一个新的界面,可以输入相关信息进行搜索。

4、这样一来会出现图示的画面,即可查询一只股票的历史行情详细数据了。

如何查询股票历史交易记录?

1、 每个公司查看股票成交记录的方式可能略有区别,但是大概的路径都是交易→普通交易→查询→历史成交。如果没有查到的话,建议投资者可以咨询所在证券公司查询方式。

2、 查询股票历史交易记录的方法很多。投资者凭有效身份证明文件、证券账户到登记结算公司柜台打印证券变更记录;也可以到开户证券公司营业部,由证券公司代理投资者向交易所查询和打印历史成交记录。当然最方便的还可以登录你的交易软件查询交割单。

3、 网上查询手机端和电脑端的查询方式都是类似的,差别不大。投资者也可以查看账户的对账单,账户对账单相当于是银行的流水一样,每一笔交易都会在上面提现,投资者可根据自己的需求查询。

4、 投资者可以通过当日成交,来查看投资者当天买卖个股的情况;通过历史成交、或者交割单,来查其最近所进行的股票买卖情况。其中当日成交和历史成交一般只能看到投资者买入个股的价位,买入时间、买入金额以及买入股数,而交割单中,除了这些之外,还能看到投资者的交易手续费用。

5、 交易记录,自交易记账当年计起至少保存5年。 如客户身份资料和交易记录涉及正在被反洗钱调查的可疑交易活动,且反洗钱调查工作在前款规定的最低保存期届满时仍未结束的,金融机构应将其保存至反洗钱调查工作结束。

6、 需要注意的是交易时间只能查询近一个月的情况,休市时间可以查询近三个月的情况,超过三个月的要上证券公司柜台查询。如果查询线上了建议投资者可以在交易时间段,携带有效身份证去营业部查询其股票交易记录,营业部工作人员会把投资者的交易记录打印出来。同时,投资者通过其交易记录,大致可以知道其盈亏情况。

股票的数据在哪里能找到?

一般来说股票的数据可以在任何股票软件中找到,而且在网页上也可以找到股票的历史数据,从而对这支股票作出判断,进一步决定是否购买。

现如今随着时代的发展,股票投资已经成为常态化。许多年前只有少部分人进行股票投资,而且如果要进行投资都需要到交易所内,每天关注大盘走势,从而做出投资决定。现如今随着互联网的发展,各类投资平台纷纷出现。人们足不出户便可以在网络中进行股票投资。各种数据也更加明了,大家可以凭借自己的经验结合股票数据,从而做出最精准的投资决策。

一、股票数据在软件和交易所官网都可以找到。

首先股票数据十分重要,是每个人判断是否投资这支股票的重要依据。一般而言,在投资软件中点入每一只股票的主页就会看到许多关于这只股票的数据。而这些数据可以精确到每一天,每一分,每一秒。这对投资人来说十分方便也很快捷,除了在软件中可以找到此类数据以外,在各类交易所的官方网站里也能找到相关数据。而且还可以在这些网站中找到这只股票的历史交易数据,历史交易数据可以帮我们看清整体股票走势,并且可以利用这些数据做出数学模型,从而更加精准的分析。

二、股市有风险,投资需谨慎。

虽然现如今投资股票十分方便,但是许多投资者并不懂投资理论,而且也没有长期投资经验,因此在投资选择上喜欢随大流。而往往正是因为这种投资策略,从而导致许多散户收益率很低。因此希望所有投资者可以在投资股票之前先行学习股票知识投资理论,先进行虚拟盘交易,掌握一定的技巧之后再进入实盘操作。这样可以保障资金安全,也可以降低风险。

以上就是关于《股票交易数据》的内容,最后一品玉知识网小编还是要告诫大家,投资有风险,选择需谨慎,新手前期应该小额进行投资

评论