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

在幻灯片放映期间，Excel不会激活

1 个答案: