VBA如何獲取更多的歷史數據和歷史指標數據 [金字塔]
- 咨詢內容：
如下代碼只能獲取20條數據，請問如何獲取更多的數據？
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 - 金字塔客服： 本地數據是否齊全，非專業版只能獲取1000根數據
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 511411198 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊