在幻灯片放映期间，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

我尝试发送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