AccessのVBAでエクセルファイル内に特定の名前のシートが存在するか判定

やり方

参照設定に下記追加。

サンプル

'フォーム上に『btn_1』という名前のオブジェクトがある前提。
'そのクリックイベント。
Private Sub btn_1_Click()

    Dim excel_ As New Excel.Application
    
    'バックグラウンドで起動
    excel_.Visible = False
    excel_.UserControl = False
    
    'Accessファイルと同じフォルダーにあるtest.xlsxが対象。
    excel_.Workbooks.Open FileName:=CurrentProject.Path & "\test.xlsx"
    
    'Excel.Applicationに『シート存在チェック関数』といったものは無い。
    'シート一覧をループして一つ一つ名前を取得して判定が必要。

    'excel_.WorksheetsはFor Eachのインターフェース無いのでForでまわす。
    Dim i_ As Long
    For i_ = 1 To excel_.Worksheets.Count
        'excel_.Worksheets(i_)が非表示シートであっても例外にならない。
        'また、非表示シートだからとって『取得したシート名が空やNULL』といったこともない。
        '（シートが非表示かどうかは気にしなくてOK）
        If excel_.Worksheets(i_).Name = "あ" Then
            MsgBox "あるよ", vbInformation
        End If
    Next
    
    'エクセルは保存せずに閉じる。
    excel_.Workbooks(1).Close SaveChanges:=False
    excel_.Quit
    
End Sub

参考サイトさん

バージョン

Windows 10 Pro 22H2 19045.2965
Microsoft Access for Microsoft 365 MSO (バージョン 2304 ビルド 16.0.16327.20200) 32 ビット