如何导出文华软件中的期货历史数据？
2024-05-02 06:54
1. 如何导出文华软件中的期货历史数据？
文华财经中的K线历史数据导出的方法如下： 要想查看某一个具体日期K线的开盘价、收盘价、最高价、最低价，请点击那一天的K线，回车即弹出具体数据。在股票行情软件里面有行情数据下载菜单，可以下载行情的全部数据。 K线又被称为阴阳烛，据说起源于十八世纪日本的米市，当时日本的米商用来表示米价的变动，后被引用到证券市场，成为股票技术分析的一种理论。K线是一条柱状的线条，由影线和实体组成。影线在实体上方的部分叫上影线，下方的部分叫下影线。实体分阳线和阴线。其中影线表明当天交易的最高和最低价，而实体表明当天的开盘价和收盘价[3]。 K线又称蜡烛图、日本线、阴阳线、棒线等，目前常用的说法是“K线”，起源于日本十八世纪德川幕府时代（1603～1867年）的米市交易，用来计算米价每天的涨跌。因其标画方法具有独到之处，人们把它引入股票市场价格走势的分析中，经过300多年的发展，目前广泛的应用于股票，期货，外汇，期权等交易市场[4]。 这种图表分析法在我国以至整个东南亚地区均尤为流行。由于用这种方法绘制出来的图表形状颇似一根根蜡烛，加上这些蜡烛有黑白之分，因而也叫阴阳线图表。通过K线图，我们能够把每日或某一周期的市况表现完全记录下来，股价经过一段时间的盘档后，在图上即形成一种特殊区域或形态，不同的形态显示出不同意义。我们可以从这些形态的变化中摸索出一些有规律的东西出来。K线图形态可分为反转形态、整理形态及缺口和趋向线等。
2. 如何下载股票历史成交数据到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"， "http://quotes.money.163.com/trade/lsjyj_" + 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 = "http://quotes.money.163.com/trade/lsjysj_zhishu_000001.html?year=" + 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建立炒股系统的整套方法，请看后续内容。"
3. 哪个期货看盘软件能够导出历史数据？
文华财经，右键-》查看图标数据-》保存数据。
4. 求如何将CAD中的数据导出来 成txt格式~~
将CAD中的数据导出为txt格式的具体步骤如下： 需要准备的材料分别是：电脑、AUTO CAD2009 软件。 1、打开CAD软件，完成图形编辑。 2、选择菜单栏上的文件。 3、文件下方菜单选择打印。 4、弹出的菜单打印机一栏选择PDF，如图所示。 5、打印范围选择窗口，然后在绘图区域选择框选需要打印的内容。 6、然后点击确定就会弹出PDF的保存路径。 7、打开pdf格式转换工具，找到文件转txt格式单击。 8、然后点击添加文件按钮，将要转换文件添加到软件内。 9、文件的保存位置大家可以自己设置，软件是默认保存在原文件夹内的。 10、最后点击开始转换即可。 这样就解决了“将CAD中的数据导出为txt格式”的问题。
5. 如何把Oracle表中的数据导出成Txt格式
上周做系统演示时需要手工制造一些文本数据充当数据源，想偷偷懒就用了Toad工具直接查询后导出成csv格式。今天正好有点时间，整理了一下思路，用sql去实现文本数据的生成。写了大致框架，有空时再来完善吧。 步骤如下： 新建一个sql脚本 d:\czrk.sql,代码如下： SET echo off SET feedback off SET newpage none SET pagesize 50000 SET linesize 20000 SET verify off SET pagesize 0 SET term off SET trims ON SET heading off SET trimspool ON SET trimout ON SET timing off SET verify off SET colsep | spool d:\czrk.txt SELECT sfzh || ',' || xm || ',' || xb || ',' || csrq || ',' || mz|| ',' || xzqh|| ',' || jzdz FROM m_czrk WHERE rownum@d:\czrk.sql 这样就在d盘下生成了一万条数据了。
6. 在吗？access如何分批导出数据成txt格式的
7. 如何正确把Oracle数据导出成Txt的格式
步骤如下： 新建一个sql脚本 d:/czrk.sql,代码如下： SET echo off SET feedback off SET newpage none SET pagesize 50000 SET linesize 20000 SET verify off SET pagesize 0 SET term off SET trims ON SET heading off SET trimspool ON SET trimout ON SET timing off SET verify off SET colsep | spool d:/czrk.txt SELECT sfzh || ',' || xm || ',' || xb || ',' || csrq || ',' || mz|| ',' || xzqh|| ',' || jzdz FROM m_czrk WHERE rownum<=10000; spool off Oracle数据导出成Txt格式：sqlplus连接上数据库,执行脚本 sqlplus dc/dc@mydb; sqlplus>@d:/czrk.sql 这样就在d盘下生成了一万条数据了。
8. 如何导出文华期货的数据免费的
如果你要导出逐笔交易明细，任何软件都不提供，如果要导出分笔以上周期的话，导出也没有任何意义，文华你就更别想了（它的所有收费的东西都是建立在这个基础之上，给你了，你还花重金去买他的那些指标或者行情吗），文华从交易所接收到原始交易数据后，根据自己对每笔交易的性质自定义算法计算然后做成某一样指标或者深加工一下，然后卖高价，其实核心就是逐笔数据，只有这个才是一切的基石。你想看哪个品种的，我可以给你，我是自己做的，可以直接接收原始数据并实时导出并计算多空的力量对比。前提你要对这个期货最核心的数据有强烈的欲望，不是骗子不是广告不要钱哈，呵呵
最新文章
热门文章
推荐阅读