0

こんにちは、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 キーを送信しようとしましたが、まだスライドショーがアクティブです。私の問題の解決策はありますか?

4

1 に答える 1

3 
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
于 2013-01-15T19:47:41.840 に答える