VBA如何獲取更多的歷史數(shù)據(jù)和歷史指標(biāo)數(shù)據(jù)
作者：金字塔 來(lái)源：cxh99.com 發(fā)布時(shí)間：2017年05月17日
- 咨詢內(nèi)容：
如下代碼只能獲取20條數(shù)據(jù)，請(qǐng)問(wèn)如何獲取更多的數(shù)據(jù)？
Sub UserForm1_CommandButton1_Click()Set Data1= marketdata.GetHistoryData("if06","zj",2)Set FormulaSAR = marketdata.StkindiByData("SAR",Data1)Set FormulaMACD = marketdata.StkindiByData("MACD",Data1)
Dim bufAllmsgBox Data1.Countfor i=1 to Data1.Count
Dim bufOne
bufOne = CStr(Data1.Date(Data1.Count-i))+","+CStr(Data1.Open(Data1.Count-i))+","+CStr(Data1.High(Data1.Count-i))+","+CStr(Data1.Low(Data1.Count-i))+","+CStr(Data1.Close(Data1.Count-i))+","+CStr(Data1.Volume(Data1.Count-i))+","+CStr(FormulaSAR.GetBufData("SARV",Data1.Count-i))+","+CStr(FormulaMACD.GetBufData("DEA",Data1.Count-i))+chr(10)
bufAll = bufAll + bufOne
'msgbox Formula.GetBufData("SARV",Data1.Count-i)next
Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile("D:\\data.txt",True)a.Write(bufAll)a.Closemarketdata.DestroyHistoryDatamsgBox bufAllmsgBox "ok"End Sub
- 金字塔客服：
本地?cái)?shù)據(jù)是否齊全，非專業(yè)版只能獲取1000根數(shù)據(jù)
打印本文
關(guān)閉窗口