SAP BPC表单中使用VBA函数

关注

VIP免费原创最新推荐文章于 2026-04-29 09:21:42 发布 1.8k 阅读 AI 写同款· GEO 优化 ›

EvMNU 语法

EvMNU(MacroName,DisplayName,Parameter)

位置：

示例：

将当前视图设置为特定维度的特定成员。在此示例中没有显示的名称。
EvMNU(“SETCV”,,”ENTITY=SalesUS;TIME=2004.JAN”)
创建一个名为〖分析〗的超链接，可以打开 A01Entity.xls 工作簿：
EvMNU("OPENFILE","Analysis",,"/REPORTS/WIZARD/Reports/Wizard/Local/Analysis/A01Entity.xlt")
使用 & 运算符将多个 EvMNU 函数串联在一起。您可以按如下方式为您正在打开的文件设置当前视图：
=EVMNU("SETCV",,"CATEGORY=PLAN;TIME=2005.Q4")&EVMNU("OPENFILE","open file","/REPORTS/WIZARD/Local/Analysis/A01Entity.xlt")

大多数“计划与合并”命令都以前缀 MNU_ 开头。但是，以下命令也可以使用：

OPENFILE
打开一个本地文件。
缺省为“C:/Documents and Settings/<Local user>/My Documents/PC_NW/<Logon user>/AppInfo/<appset>/<app>/eExcel”目录，除非定义了完整路径。
EvMNU(OPENFILE,”optional text”,{path})
例如，evMNU(“OPENFILE”,,"c:/Documents and Settings/<Local user>/My Documents/PC_NW/<Logon user>/AppInfo/<appset>/<app>/eExcel")
CLOSEEXCEL
关闭 Microsoft Excel。
EvMNU(CLOSEEXCEL,,)
OPENWEBFOLDER
打开 /<appset/<app>/eExcel 文件夹。您不能更改缺省路径。
EvMNU(OPENWEBFOLDER,”optional text”)
SETCV
设置当前视图。
EvMNU(SETCV,,dimension=member)

EVMNU的使用方法是在EXCEL中的单元格内输入=EvMNU(MacroName,DisplayName,Parameter) ,然后双击或单击单元格就会执行MacroName对应的宏.

另外一种使用菜单命令的方法是，拖一个表单按钮到excel中，然后为按钮指定宏为MNU_eXXXX_XXXXX，这样点击按钮MNU菜单命令就会被执行.

有的时候我们可能会需要在VBA中调用MNU菜单命令，比如先进行一些针对单元格的校验然后再执行发送数据命令，这种情况下，我们需要在VBA代码中输入语句Application.Run "mnu_{command}".

如调用BUDGET2COST脚本：

Application.Run "MNU_eData_SELECTPACKAGE", "BUDGET2COST", "/CPMB/DEFAULT_FORMULAS", "company", "Data Management"

BPC还提供了几个事件函数,类似于MFC中的事件响应函数:

解决方案提供了以下 VBA 函数，用于执行 MNU 命令之前或之后的命令：

BEFORE_CHANGECVW
您可以使用 BEFORE_CHANGECVW 函数在更改当前视图前执行定制操作。
Option Explicit
Function BEFORE_CHANGECVW(Argument As String)
'Process content
MsgBox Argument
BEFORE_CHANGECVW = True
End Function
AFTER_CHANGECVW
您可以使用 AFTER_CHANGECVW 函数在更改当前视图后执行定制操作。
Function AFTER_CHANGECVW(Argument As String)
MsgBox Argument
AFTER_CHANGECVW = True
End Function
BEFORE_REFRESH
您可以使用 BEFORE_REFRESH 函数在用户更改当前视图后执行定制操作。
Function BEFORE_REFRESH(Argument As String)
MsgBox Argument
BEFORE_REFRESH = True
End Function
AFTER_REFRESH
您可以使用 AFTER_REFRESH 函数在 Excel 界面刷新数据后执行定制操作。
Function AFTER_REFRESH(Argument As String)
MsgBox Argument
AFTER_REFRESH = True
End Function
BEFORE_SEND
您可以使用 BEFORE_SEND 函数在 Excel 界面发送数据前执行定制操作。
Function BEFORE_SEND(Argument As String)
MsgBox Argument
BEFORE_SEND = True
End Function
AFTER_SEND
您可以使用 AFTER_SEND 函数在 Excel 界面发送数据后执行定制操作。
Function AFTER_SEND(Argument As String)
MsgBox Argument
AFTER_SEND = True
End Function
BEFORE_EXPAND
除了用于联机报告，该事件还可以用于在批处理开始时执行定制代码，例如帐簿发布或脱机分配。
Function BEFORE_EXPAND(Argument As String)
MsgBox Argument