AppActivate Appではなぜだめなのでし

質問

エクセルファイルをvbaで開いて全画面表示したいのですが

Sub Sample1()
Dim App As Excel.Application
Dim xlBook As Workbook
Dim MyFileName As String

MyFileName = "D:\test.xls"

Set App = CreateObject("Excel.Application")
Set xlBook = App.Workbooks.Open(MyFileName, ReadOnly:=True)

App.Visible = True
AppActivate App 'エラー発生
End Sub

このコードだと
AppActivate Appでエラーが発生します。

たまにシステムの裏側で開いてしまうので
常に前面に持ってこれるようにしたいのですが
AppActivate Appではなぜだめなのでしょうか？

回答No.2

ushi2015 · ベストアンサー

間違えました。
AppActivate App.Caption, 0
で。

お礼

回答ありがとうございました。

回答No.1

ushi2015

こんにちは
AppActivate xlBook.Caption, 0
としてもダメでしょうか？

お礼

回答ありがとうございました。