outlook vbaを使って開いているエクセルファイル名を調べる

Question

前提・実現したいこと

outlook vbaを使って、開いているエクセル名を表示するマクロを作成しています。
web上でexcel vbaに記載されているコードをコピーし、エクセルアプリを加え実行しました。

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

エラーメッセージもなく、イミディエイトウィンドウにも表示が出ない状況です

ソースコード

Sub detect_book()
Dim i as long

Set appExcel = CreateObject("Excel.Application")

For i = 1 To appExcel.Workbooks.Count
Debug.Print Workbooks(i).Name
Next i

set appExcel = Nothing

End sub

補足情報（FW/ツールのバージョンなど）

使用環境はoffice365になります。

Comments

[meg_]

> エラーメッセージもなく、イミディエイトウィンドウにも表示が出ない状況です
appExcelで「開いているエクセルファイル」が1つも存在していないからではないですか？

[asuka0810]

ご質問ありがとうございます。
「開いているエクセルファイル」は通常手順で開いたファイル＝「タスクバーに表示されているブック」を対象としており、いくつかブックを状況でも何も表示されておりません。
尚、appExcelをつけているのは、outlookにてエクセルアプリから「ブックを調べる」のに必要と感じてつけております。

[meg_]

appExcel.Workbooksで取得出来るエクセルブックはappExcelオブジェクトで開いたエクセルブックだけではないでしょうか？

[asuka0810]

ご質問ありがとうございます。
記載いただいた内容について、真偽が判断できません。
仮に真だった場合、全てのエクセルブックを対象にするには、
どのように修正すればよいか、ご教示いただきたく思います。

Answer 1

CreateObject("Excel.Application")の箇所をGetObject(, "excel.Application")にしてはどうでしょうか？
オートメーション サーバーの GetObject と CreateObject Office動作

---

【追記】

記載いただいた内容にて実行したところ、「Debug.Print Workbooks(i).Name」　にて、

下記のエラーが表示され、正常動作しませんでした。
実行時エラー'9'
インデックスが有効範囲にありません。

上記はまた別のエラーですね。
下記コードで動作確認できました。

Sub detect_book()

    Dim i As Long
    Dim appExcel As Object

    Set appExcel = GetObject(, "excel.Application")

    For i = 1 To appExcel.Workbooks.Count
        Debug.Print appExcel.Workbooks(i).Name
    Next i

    Set appExcel = Nothing

End Sub

Comments

[asuka0810]

ご回答ありがとうございます。(記載内容訂正いたします)
記載いただいた内容にて実行したところ、「Debug.Print Workbooks(i).Name」　にて、
下記のエラーが表示され、正常動作しませんでした。

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

[asuka0810]

早々のご回答ありがとうございました。
明記いただいた内容にて、正常動作することを確認いたしました。
今後ともご縁がございましたら、宜しくお願い致します。