Question

Hi I’m using office 2007 and I made a macro in ppt what opens xlsm files but during the slideshow if I start with the command button it opens the excel application and the file but does not activate it.
Here is my code:

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

So it goes on the activation without error and the slideshow still active not the excel file.

I tried to send alt+tab keys but still slideshow is active.
Is there any solution for my problem?

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