WordVBAから特定のExcelを閉じたい

Question

前提・実現したいこと

WordVBAから特定のExcelのブックを閉じたいのですが、うまくいきません
Workbooks("book1.xlsm").Closeのみで起動しますと以下のエラーがでます。
また、Word同士、Excel同士でしたら、うまく作動します。

発生している問題・エラーメッセージ

実行時エラー'9': 
インデックスが有効範囲にありません。 

該当のソースコード

On Error GoTo ErrHandler
Workbooks("book1.xlsm").Close On 
Error GoTo 0 End Exit Sub 
ErrHandler: Err.Clear On Error GoTo 0 

試したこと CreateObject("Excel.Application")で新たに開いてから閉じましたが、新しく開いたブックのみ閉じます。 よろしくお願いします。

Answer 1

すでに開いているExcelブックを扱いたい、ということですよね。
それであれば、CreateObjectではなく、GetObjectかと。

Dim xlApp As Object
Set xlApp = GetObject(, "Excel.Application")
xlApp.Workbooks("book1.xlsm").Close

このような感じでよいかと。

Comments

[ikedayuuki]

GetObjectに変更したら無事に出来ました！
あろがとうございます