MS Excel - Импорт данных из рабочей книги (DoCmd.TransferSpreadsheet)

По материалам: https://www.cyberforum.ru/ms-access/thread3121263.html

Dim sExcelFilePath As String
Const sExcelSheetName As String = "Лист1"
Const sTableName As String = "Выгрузка"
    
    With Application.FileDialog(1)   ' 1 = msoFileDialogOpen
        .Filters.Clear               ' Зачистка фильтра
        .AllowMultiSelect = False    ' Выбор нескольких файлов = OFF
        .Filters.Add "Файлы MS Excel", "*.xlsx", 1
        If .Show Then
            sExcelFilePath = .SelectedItems(1)
        End If
    End With
    
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, sTableName, _
                sExcelFilePath, True, sExcelSheetName & "!"