Microsoft Access 掲示板

シート名は固定ですか、それとも、その時々で変わりますか。変わる場合は全シートが対象ですか。

例えば、data、aaa、bbb の固定なら、

     DoCmd.TransferSpreadsheet acImport, _
                    acSpreadsheetTypeExcel12Xml, "T_2022", varxls, ,"data!A7:I"
     DoCmd.TransferSpreadsheet acImport, _
                    acSpreadsheetTypeExcel12Xml, "T_2022", varxls, ,"aaa!A7:I"
     DoCmd.TransferSpreadsheet acImport, _
                    acSpreadsheetTypeExcel12Xml, "T_2022", varxls, ,"bbb!A7:I"

とシート数分記述すればいいでしょう。

シート数が多い場合は、シート名を配列に格納して、Fprループで繰り返すようにすれば短くできます。

シート名か固定でなく、事前にシート名か分からないなら、TransferSpreadsheet では無理なので、VBAでExcelアプリケーションを開いて処理することになります。

AccessからExcelを操作する 《CreateObject》｜Access｜ヘルプの森

早速のご指導、ありがとうございます。
シート数分記述　はできたのですが、「シート名を配列に格納して、Fprループで繰り返す」方法ができません。
シート名は固定されています。上記の構文を教授お願いできませんか？
よろしくお願いいたします。

こんな感じでどうですか。

Public Sub test()
    
    Dim excelBookName As String
    Dim Sheets As String
    Dim strRange As String
    excelBookName = "Book1.xlsm"
    Sheets = "data,aaa,bbb,ccc" 'カンマ区切りで対象シート名を記述
    strRange = "!A7:I"

    Dim myDir As String, excelPath As String
    myDir = Application.CurrentProject.Path 'データベースファイルのパス
    excelPath = myDir & "\" & excelBookName

    Dim sheet
    For Each sheet In Split(Sheets, ",")
        DoCmd.TransferSpreadsheet acImport, _
                              acSpreadsheetTypeExcel12Xml, "T_2022", excelPath, , sheet & strRange
    Next

End Sub

早速のご指導ありがとうございます。小生、配列は全く理解（？）できていません。いろいろな達人からの助言・指導を受けて応用しながら使っています。助言いただいた構文、大切に使わせていただきます。改めておれいもうしあげます。