Кнопка для импорта из Excel в Access

Dim lVal As Long, s$
' Подлинковка листа книги Excel в режиме: READONLY
'   Путь:              "d:\Downloads\DocsSetExcel.xlsx"
'   Название листа:    "List01"
'   Название таблицы:  "0LinkedExcelList"
    lVal = LinkExcelList("d:\Downloads\DocsSetExcel.xlsx", "List01", "0LinkedExcelList")
 
    If lVal > 0 Then Exit Sub 'проверка как всё прошло
    
'Тут импортируем данные ...
    's = "INSERT INTO ... SELECT ... FROM 0LinkedExcelList ..."
    'CurrentDb.Execute s
    
'Готово! - Простое удаление таблицы листа книги Excel
   DoCmd.DeleteObject acTable, "0LinkedExcelList"

Private Function LinkExcelList(filePath As String, listName As String, tableName As String) As Long
' es 18.01.04
' Подлинковка листа книги Excel в режиме: READONLY - редакция данных не доступна
' Возвращает код ошибки или 0
'-------------------------------------------------------------------------
'Аргументы:
'   filePath   = Полный путь к файлу
'   listName   = Название листа
'   tableName  = Название таблицы (в текущей базе)
'-------------------------------------------------------------------------
Dim strLink As String
Dim tdf As TableDef
'Удаляем старую таблицу (если есть)
On Error Resume Next
    DoCmd.DeleteObject acTable, tableName
    Err.Clear
On Error GoTo LinkExcelListErr
'Задаем строку подключения
    strLink = "Excel 8.0;DATABASE=" & filePath
    Set tdf = CurrentDb.CreateTableDef(tableName)
    tdf.Connect = strLink
'Задаем название листа
    tdf.SourceTableName = listName & "$"
'Создание подлинкованной таблицы
    CurrentDb.TableDefs.Append tdf
    Set tdf = Nothing
    CurrentDb.TableDefs.Refresh
    DoEvents
    Exit Function
 
LinkExcelListErr:
    LinkExcelList = Err.Number
    MsgBox "Функция [LinkExcelList] привела к ошибке:" & vbCrLf & _
    Err.Description & vbCrLf & " Err#" & Err.Number, vbCritical
End Function