保存模板时触发Workbook_BeforeSave的宏?

2020-09-12 10:18发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好。 关于VBA和BPC,我...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好。 关于VBA和BPC,我有一个非常基本的问题。 将BPC模板保存到服务器时,VBA事件 Workbook_BeforeSave()似乎不起作用。 我知道服务器上的 Workbook_Open()事件也存在类似的问题,并且可以创建常规宏 after_workbook_open()。

有人知道 BeforeSave 是否也有类似的东西吗? 我尝试了 before_workbook_save(),但未成功。

4条回答
< p>对我来说很奇怪,为什么没有触发标准事件Workbook_BeforeSave ...

示例:

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI为布尔值,取消为布尔值)
 ThisWorkbook.Worksheets(" Sheet1")。Range(" A1")。Value = CStr(Now())
 结束Sub 

如果我执行如下宏:

 Public Sub Save1()
 ThisWorkbook.SaveAs" C:\ Users \ KalininVE \ Desktop save.xlsm"
 结束Sub 

然后标准事件将起作用...

看起来EPM代码正在执行以下操作:

公共Sub Save1()
 Application.EnableEvents = False
 ThisWorkbook.SaveAs" C:\ Users \ KalininVE \ Desktop save.xlsm"
 Application.EnableEvents = True
 结束Sub 

P.S。

即使禁用了事件,仍可以使用Application.Run执行Workbook_BeforeSave:

公共Sub SaveProc()
 Application.EnableEvents = False
 Application.Run" ThisWorkbook.Workbook_BeforeSave",错误,错误
 Application.DisplayAlerts = False
 ThisWorkbook.SaveAs" C:\ Users \ KalininVE \ Desktop save.xlsm"
 Application.EnableEvents = True
 Application.DisplayAlerts = True
 结束Sub 

一周热门 更多>

相关问答