主题：VBA中，获取一个价格还权的历史数据，怎么写

VBA中，获取一个价格还权的历史数据，怎么写？

实现技术分析图标中的价格还权（剔除合约换月带来的问题）

我找到一个PowerAspect 复权方向，0向前复权 1向后复权。

但具体的不会用。请高手指教！

不是吧。

你这个例子是读取的剔除连续合约换月造成的大幅跳空的因素了吗？应该不是吧。

我输出来的值还是有换月跳空的，如何利用这个复权还权功能剔除这个因素

Formula 对象

公式对象，每个公式都有该对象与之对应。

Formula对象提供了通过VBA系统与公式系统交互的方法，用户可以通过两种途径与FORMULA对象交互：

1、通过自定义函数，系统会每个周期调用自定义函数，然后通过传送的FORMULA对象交互

2、通过图表查询，调用图表上已经计算好的公式数据。

金字塔的公式有两种执行模式，即序列计算和逐周期计算两种模式，详情请参考 这里 的下半部分介绍

示例：

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

这个公式函数获取的是除权的数据还是没有除权的。