导航:首页 > 数据行情 > 如何提取股票指标的数据库

如何提取股票指标的数据库

发布时间:2023-07-20 11:23:06

① 如何下载或者导出股票行情软件的技术指标数值如KDJ,MACD等

通达信为例,将需要的指标显示在K线图上,不管是主图还是副图,点击34,导出数据,文件格式为EXCEL、TXT都可以。
大部分股民朋友都了解炒股就是炒预期,炒股看中的上市公司的业绩,但炒股除了要综合考虑公司的基本面外,同时也要对技术面进行了解。只要说到技术面,多数人都对MACD指标很熟,对KDJ的用法却很生疏,针对想要做短期的朋友来讲,KDJ的重要性不用说也知道。今天在这里,咱们就对KDJ指标到底是什么来进行分析,以及我们该如何利用这个技术指标来提升自己做短线操作的容错率。开始之前,不妨先领一波福利--机构精选的牛股榜单新鲜出炉,走过路过可别错过:【绝密】机构推荐的牛股名单泄露,限时速领!!!
一、KDJ是什么?
KDJ指标又被称作随机指标,是由三条曲线即K线、D线和J线组成的,通过图片得出的结论是,K、D、J它们三个的颜色都是不一样的,其中K线为快速确认线,所谓的D线指的就是慢速主干线,而J线表示的则是方向明暗线。K值和D值在0~100之间浮动,而J指在小于0或大于100波动的范围波动,能够在更大范围内波动。KDJ的用处体现字判断中短期行情走势上。

总而言之,KDJ指标的作用不过是判断行情,想要准确地搞清楚个股走势,大盘走势、所处的板块及时事政策等多方面因素也是判断的标准。实在没有充足的时间去研究某只个股的朋友,不妨点击下面这个链接,输入自己想要了解的股票代码,进行深度分析【免费】测一测你的股票当前估值位置?
三、KDJ指标的优劣势
KDJ指标的优点是能灵敏的判断股价变化,可以参考它来进行短线操作。但由于该指标反应速度太快,发出买入或者卖出信号有时会过早,导致投资者在操作上容易出错。那如何才能找到完美买卖时机?纯人力技术分析还有用吗?试试点击下方链接,AI智能判断买卖时机,进场再也不犹豫:【AI辅助决策】买卖时机捕捉神器

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

② 如何下载股票历史成交数据到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建立炒股系统的整套方法,请看后续内容。"

③ 如何导出同花顺中技术分析中的各项指数

导出方法:在K线图界面,按F1进入历史成交,往上翻,翻到需要的起始点,点鼠标右键,数据导出,导出所有数据,默认保存在桌面上。

股票行情是一种证券市场用语,指股票交易所内各只股票的涨幅变化及交易流通情况。
股市行情分析方法:
(1)技术分析:技术分析是以预测市场价格变化的未来趋势为目的,通过分析历史图表对市场价格的运动进行分析的一种方法。股票技术分析是证券投资市场中普遍应用的一种分析方法。
(2)基本分析:基本分析法通过对决定股票内在价值和影响股票价格的宏观经济形势、行业状况、公司经营状况等进行分析,评估股票的投资价值和合理价值,与股票市场价进行比较,相应形成买卖的建议。
(3)演化分析:演化分析是以演化证券学理论为基础,将股市波动的生命运动特性作为主要研究对象,从股市的代谢性,趋利性,适应性,可塑性,应激性,变异性和节律性等方面入手,对市场波动方向与空间进行动态跟踪研究,为股票交易决策提供机会和风险评估的方法总和。

④ 如何利用一些 finance 数据库 api 批量获取股票信息

使用Yahoo API获取股票信息。

⑤ 万得提取数据在哪

1、打开wind软件,在界面上端的“宏观”选项框,选择“经济数据库”--“中国宏观数据库”。

2、在左下角搜索框,搜索需要竖枣的指标。在弹出闹吵的对话框中,双击选中的指标,液纤侍此时,这个指标会在原始的界面中显示出来。

3、选择界面左上角“提取数据”。

4、选择界面左上角“数据导出”即可。

⑥ 在哪里可以找到股票历史数据形成的数据库

大富翁数据中心提供国内股票和期货tick级别历史数据的数据库,各级别分钟数据也有,外盘也有提供,都是纯文本,质量很高

⑦ api如何获取股票wma指标数据

1、首先获取股票当前数据。
2、其次获取股票历史数据。
3、最后输入需要的股票的地址即可。以上就是api获取股票wma指标数据的方式。

⑧ 请问:如何提取通达信中个股相关的概念板块指数



类似红线标记处,需要添加外部数据。副图白色显示的需要调用系统相关函数

⑨ 如何获取k线数据如何获取指标数据

获取K线数据的软件还是蛮多的。
我之前用过大智慧,就是软件稍微有点大。包括所有的股票、商品、股指很多品种都可以下载数据。直接右键复制,到EXCEL中黏贴就可以了。希望能帮到你,望采纳!

阅读全文

与如何提取股票指标的数据库相关的资料

热点内容
股票流出资金代表什么意思 浏览:411
买香港上市的股票吗 浏览:558
建设银行转股票账户 浏览:520
股票指标专家打分 浏览:559
公司员工是否可以买自己公司股票 浏览:727
证券与股票的论文 浏览:902
中国铀业有限公司股票 浏览:689
目前准备重组的股票有哪些 浏览:729
购买子公司股票的总资产变吗 浏览:364
低价卖给员工股票 浏览:763
000908股票成立时间 浏览:296
股票账户当前余额和可用余额 浏览:616
哪个软件能够交易股票和期权的区别 浏览:286
证券和股票是一码事吗 浏览:795
洲明科技股票期权 浏览:819
股票主力怎么 浏览:301
股票投资为什么把亏损放在首位 浏览:792
中材科技股票成交额 浏览:802
IB如何投资泰国股票 浏览:795
塔牌集团股票主力阶段性减仓 浏览:969