workbookにsetできない

Question

お世話になっております。
初歩的な質問になってしまうかと思いますが、ご教示いただければと思います。

Outlookにメールが着信したら
①別で用意しているメール宛先マスターファイル（.xlsx）を参照して
②宛先をマスタから検索
③該当する宛先にヒットすれば添付ファイルを保存

という処理を行うつもりなのですが、最初でつまずいてしまいました。
①のマスターファイルを参照部分について、
変数名 xwbにファイル（ファイル）をsetするという処理でエラーが発生してしまいます。
※エクセルファイルは常に開いている状態です

★エラー内容は

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

でした

★試したこと
Set xWb = xExcelApp.Workbooks(xExcelFile)
↓
Set xWb = Excel.Workbooks(xExcelFile)
に変えてみましたがエラー発生しました

xExcelFile = "送信元マスタ.xlsx"
↓
xExcelFile = "送信元マスタ"
拡張子消してもエラー発生しました

xExcelFile = "送信元マスタ.xlsx"
↓
xExcelFile = "～/送信元マスタ.xlsx"
フルパス表記でもエラー発生しました

Dim xWb As Excel.Workbook
↓
Dim xWb As Excel.Workbooks
booksでもエラー発生しました

よろしければ正しいset方法をご教示いただければ幸いです。
以上、よろしくお願いします。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet


    xExcelFile = "送信元マスタ.xlsx"
    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks(xExcelFile) 'ここでエラー
    Set xWs = xWb.Sheets(1)
    xWs.Activate
    

    xExcelApp.Visible = True

Answer 1

「送信元マスタ.xlsx」は開いているんですよね。
それであれば、以下の部分が異なるかと。
この方法だと、新しいExcelを起動するので、起動済みのExcelとは別扱いになります。

Set xExcelApp = CreateObject("Excel.Application")

なので、以下のようにすればよろしいかと。

Set xExcelApp = GetObject(, "Excel.Application")

Comments

[ookura]

即解決しました。迅速で明確なご回答ありがとうございます。