4.8.12.9 GetOperationName

作用：返回当前系统所处的状态

           参数：没有

      返回值：" [模板编辑] " 、" [填表] " 、" [修改数据] " 、" [查阅报表数据] "

      示例：

      Sub CommandButton1_Click()

                 ‘定义接口变量

     Dim obj As Object   

                 ‘获取E立方管理平台的编程接口

     Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

                 ‘通过接口调用GetOperationName

If obj.GetOperationName = "[填表]" OR obj.GetOperationName = "[修改数据]" Then

               obj. execFormula "获取期初余额;获取本期发生;获取销售收入"

              End If

                 ‘释放编程接口

     Set obj = Nothing

End Sub

      解说：在工作表上放置了一个按钮，当点击按钮时就调用上面的VBA代码，如果当前是“[填表]”或者“[修改数据]”就执行表间取数公式，否则就不予执行。