使用VBA创建电子邮件后,重点关注Excel

Question

我有一个VBA宏,它执行以下操作:

1. 创建报告,将其保存到主目录.关闭报告
2. 创建各种电子邮件,将报告附加到每个(不发送电子邮件)
3. Msgbox显示该进程已完成

问题是,一旦整个过程完成,我希望用户知道它已经完成,但是这段代码没有将焦点返回到excel(我希望这是问题)

Windows(the_current_window).Activate
Worksheets(currentQuoteSheet).Select

最后创建的电子邮件是保留在屏幕上的内容.只有当我点击菜单栏上的excel图标时,msgbox才会出现.所以用户在那里等待完成(当它有,实际上:()

任何想法如何确保msgbox在最后一封电子邮件创建后显示而无需用户点击excel？

Answer 1

尝试

sub doSomething()
   'do something
   AppActivate "Microsoft Excel"
End Sub

Answer 2

我对MS Office 365和出于某种原因想，当我得到一个应用程序错误AppActivate "Microsoft Excel"，并AppActivate "Excel"然而，：

AppActivate Application.Caption

为我工作。