請問如何在VBA中調(diào)用金字塔公式系統(tǒng)中的指標(biāo)的值？　[金字塔]

示例1: 讀取圖表上的公式指標(biāo)線

Sub Test()
'該示例將把技術(shù)分析主圖上的MA指標(biāo)前兩條線輸出到EXCEL中，使用前請注意將K線主圖打開，并顯示MA指標(biāo)
' 得到框架名稱為"Technic"，窗格名稱為"Main"的窗格對象
Set Grid = Technic.GetGridByName("Main")
Set Formula = Grid.GetFormulaByIndex(1)

'創(chuàng)建EXCEL對象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

'循環(huán)遍歷得到公式線
for i = 0 to Formula.DataSize-1
'將兩條數(shù)據(jù)線插入到EXCEL第一、二列
objExcel.Cells(i+1,1).Value =Formula.GetBufData("MA1",i)
objExcel.Cells(i+1,2).Value =Formula.GetBufData("MA2",i)
objExcel.Cells(i+1,3).Value =Formula.GetBufDateData(i)
next

End Sub

示例2: 直接調(diào)取公式值

示例
Set Formula = marketdata.STKINDI("if08","zj","ma(5,10,20,60)",0,0) '調(diào)用中金所IF08合約的1分鐘的MA移動平均線指標(biāo),參數(shù)依次是5,10,20,60
msgbox Formula.GetBufData("ma3",924) '顯示第925根k線上的MA3指標(biāo)線數(shù)值