我之前在做Excel和PPT交互的VBA脚本时，也碰到过一模一样的焦点混乱问题——刚操作完PPT，切回Excel弹文件对话框，结果Excel就在后台闪，点都点不到。试了好几种方法，这几个思路应该能帮到你：

1. 强制激活整个Excel应用程序 #

单纯激活工作簿或者工作表有时候不够，得直接让Excel应用抢到系统焦点。在弹出文件对话框前加这两行代码：

' 强制激活Excel窗口
AppActivate Application.Caption
' 确保窗口不是最小化/最大化状态，避免焦点异常
Application.WindowState = xlNormal

把这段放在你的MsgBox "Please choose the Metro2 Fact Sheet"之前，就能把焦点硬拉回Excel。

2. 先激活PPT再切回Excel（反向操作技巧） #

有时候系统焦点会“粘”在PPT上，直接切回Excel没用，反而先激活PPT窗口，再切回Excel能打破这个状态。在你操作完PPT幻灯片的删除逻辑后，加这段：

' 先激活PPT窗口，再切回Excel
MyPresentation.Windows(1).Activate
AppActivate Application.Caption
indexsheet.Activate

这个小技巧我亲测有效，很多时候焦点混乱都是因为跨应用操作后系统没及时更新前台窗口。

3. 给文件对话框指定父窗口 #

你原来的文件对话框没有绑定到Excel窗口，可能被系统归到PPT进程的后台了。修改FileDialog代码，把父窗口指定为当前Excel窗口：

With Application.FileDialog(msoFileDialogFilePicker)
    ' 指定对话框的父窗口为Excel活动窗口
    .Parent = Application.ActiveWindow
    If .Show <> -1 Then
        MsgBox "No file selected! Exiting script.": End
    End If
    Met2FactSheet = .SelectedItems(1)
End With

另外注意你原来的代码里漏了一个End If，我已经补上了，不然会编译报错。

为什么会出现这个问题？ #

当你跨Excel和PPT两个应用操作时，Windows的焦点管理很容易出现滞后——尤其是你删除PPT里的OLE对象后，PPT进程还保留着前台窗口的控制权，这时候Excel弹文件对话框，系统就会把对话框放在PPT后面，导致Excel只能在后台闪烁。Workbook.Activate只是激活了工作簿内部的对象，并没有让整个Excel应用成为前台窗口，所以没用。

内容的提问来源于stack exchange，提问作者Milen Metev