我想在 Catia 中一一运行宏列表,在运行每个宏时它会显示消息框。要继续下一个宏,我单击消息框上的“确定”或“关闭”按钮来关闭。在我关闭消息框之前,下一个宏不会运行。
我想通过脚本或宏自动单击消息框或用户框架上的“确定”或“取消”按钮。这样我的 Catia 宏列表将连续运行,无需任何手动单击。
是否可以通过正在显示的用户表单上的宏单击按钮
如果你想让某些功能持续存在,将所有功能写入一个宏中并启动它不是更好吗?
您可以通过SendKey功能虚拟点击按钮,但根据我的经验,它可能不可靠。
我建议,并且在我看来这是最简单的方法,只需将每个宏复制到一个单独的类,并使用一些静态方法来运行它,然后使用 CATMain 函数从模块中一一调用它。
您可以要求用户在宏开始时选择操作模式。 然后绕过以下框消息。
Sub catmain()
Dim StepByStep As VbMsgBoxResult
StepByStep = MsgBox("Do you want launch Macros step by step ?", vbYesNo, "Macro mode")
.
.
.
If StepByStep = vbYes Then
MsgBox "Result MAcro 1", vbExclamation, "Result"
End If
End Sub