MyTetra Share
Делитесь знаниями!
MS Excel - Подключение листа книги
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 11 Импорт - Экспорт
Запись: xintrea/mytetra_db_adgaver_new/master/base/15320173088t7ercv96f/text.html на raw.githubusercontent.com

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 - редакция данных не доступна.)

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования