oracle - Smartview/Essbase VBA 函数不返回成员信息

Question

我正在尝试使用 GetHypParent() 函数将 hyperion/Essbase 父名称放置在子成员旁边，但我下面的代码在 K 列中放置了一个 0（表示成功的函数？），而不是其自身的父名称。我如何（或有办法）将父名放在子名旁边？

Sub Example_HypGetParent() Dim vtParent As Variant

对于 x = 9 到 20 ActiveSheet.Cells(x, 11) = HypGetParent(Empty, Trim(ActiveSheet.Cells(x, 4)), vtParent)

下一个 x

结束子

Answer 1

该函数按设计返回一个整数——假设调用成功，HypGetParent它用父项的值填充变量。vtParent所以理论上你需要更像这样的东西：

For x = 9 To 20 
    Result = HypGetParent(Empty, Trim(ActiveSheet.Cells(x, 4)), vtParent)
    ActiveSheet.Cells(x, 11) = vtParent
Next x