打印本文打印本文 关闭窗口关闭窗口

请问如何在VBA中调用金字塔公式系统中的指标的值?

作者:金字塔 来源:cxh99.com 发布时间:2015年02月25日
  • 咨询内容: 请问如何在VBA中调用金字塔公式系统中的指标的值?

     

     

  • 金字塔客服:

    示例1: 读取图表上的公式指标线

     

    Sub Test()
    '该示例将把技术分析主图上的MA指标前两条线输出到EXCEL中,使用前请注意将K线主图打开,并显示MA指标
    ' 得到框架名称为"Technic",窗格名称为"Main"的窗格对象
    Set Grid = Technic.GetGridByName("Main")
    Set Formula = Grid.GetFormulaByIndex(1)

    '创建EXCEL对象
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.Workbooks.Add

    '循环遍历得到公式线
    for i = 0 to Formula.DataSize-1
    '将两条数据线插入到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: 直接调取公式值

     

    示例
    Set Formula = marketdata.STKINDI("if08","zj","ma(5,10,20,60)",0,0) '调用中金所IF08合约的1分钟的MA移动平均线指标,参数依次是5,10,20,60
    msgbox Formula.GetBufData("ma3",924) '显示第925根k线上的MA3指标线数值

打印本文打印本文 关闭窗口关闭窗口