Set db = OpenDatabase(sFilePath, False, True, "Excel 12.0 Xml;") 

Sub DeleteAllTables()
Dim db As Database, i As Integer, sName As String

    Set db = CurrentDb
    For i = db.TableDefs.Count - 1 To 0 Step -1
        sName = db.TableDefs(i).Name
'Debug.Print sName
     If sName Like "MSys*" Then
        'system tables
     Else
        db.TableDefs.Delete sName
     End If
    Next
End Sub

Sub ImportFromExcel()
Dim db As Database, i As Integer, sName As String, sFilePath

    sFilePath = CurrentProject.Path & "\" & "M.xlsm"
    'Удаляем таблицы
    Call DeleteAllTables
    
    'Открываем файл Excel как БД
    Set db = OpenDatabase(sFilePath, False, True, "Excel 12.0 Xml;")
    For i = 0 To db.TableDefs.Count - 1
    'Возвращает имена листов (с "$" в конце) и имена интервалов.
        sName = db.TableDefs(i).Name
     If sName Like "*$" Then
        'Обрабатываем только листы
'Debug.Print sName
        sName = Left$(sName, Len(sName) - 1)
        If sName <> "ПереченьМОП" Then
        'Импортируем текущий лист
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, sName, sFilePath, True, sName & "$"
        End If
     End If
    Next
End Sub

 Set db = OpenDatabase(sFilePath, False, True, "Excel 12.0 Xml;") 

Sub ImportFromExcel2()
Dim WB As Object, WS As Object, sName As String, sFilePath
    sFilePath = CurrentProject.Path & "\" & "Test.xlsm"
    
    Call DeleteAllTables
    
    'Получаем доступ к объектной модели рабочей книги.
    Set WB = GetObject(sFilePath)

    For Each WS In WB.Worksheets
         sName = WS.Name
     'Игнорируем пустые листы.
     If WS.UsedRange.Address(0, 0) <> "A1" Then
        If sName <> "ПереченьМОП" Then
        'Импортируем текущий лист
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, sName, sFilePath, True, sName & "$"
        End If
     End If
    Next
End Sub