excel - 在幻灯片放映期间 Excel 未激活

Question

嗨，我使用的是 Office 2007，我在 ppt 中创建了一个宏，用于打开 xlsm 文件，但在幻灯片放映期间，如果我从命令按钮开始，它会打开 excel 应用程序和文件，但不会激活它。这是我的代码：

Dim appExcel as object
Const ExcelObject = "Excel.Application"
Set appExcel = CreateObject(ExcelObject)
appExcel.Visible = True
appExcel.File.Open:="path name"
appExcel.Workbooks("workbookname").Activate

所以它继续激活没有错误，幻灯片仍然有效，而不是 excel 文件。

我尝试发送 alt+tab 键，但幻灯片仍然处于活动状态。我的问题有什么解决办法吗？

Answer 1

Dim appExcel as object
Const ExcelObject = "Excel.Application"
Set appExcel = CreateObject(ExcelObject)
With appExcel
    .Visible = True
    .File.Open:="path name"
    .Workbooks("workbookname").Activate
    AppActivate .Caption '<<<<<<<
End With