MS Excel - Подключение листа книги

Если название листа состоит из нескольких слов, то данная конструкция может не работать на старых версиях офиса, спасает обрамление названия листа в одинарные кавычки, вот так:
"’Лист один’"

Public Function LinkExcelList(filePath As String, listName As String, tableName As String)

' 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

Заголовки столбцов должны быть проставлены!
(Подключает в режиме: READONLY - редакция данных не доступна.)