Ошибка подключеия бибилиотеки Excel

@intersk · Регистрация: 07.09.2014

Студворк — интернет-сервис помощи студентам

при попытке подключить библиотеку Microsoft Excel 14.0 Object library к Access появляется такая ошибка:

mobile · 11.02.2015, 17:13

Очень вероятно, что один из модулей называется Excel. Почти уверен, что именно так

@intersk · 11.02.2015, 21:31 **[ТС]**

другой библиотеки с именем Excel не подключено.
Вообще задача у меня такая - внести в ячейки Excel значения из формы Access ? а потом выделить границы диапазона этих ячеек.
Делаю это так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Set xlApp = CreateObject("Excel.Application")
strPathExcel = MyFile
Set xlWbk = xlApp.Workbooks.Open(strPathExcel)
 
'то добавляем строку
xlWbk.Worksheets(l).Rows(Rowss2).Insert
 
'Запомним нашу строку
'Set newrow = xlWbk.Worksheets(L).Rows(Rowss2)
 
xlApp.Visible = True 'запускаем приложение Excel
With xlWbk.Worksheets(l)
'динамически формируем адрес нужной ячейки и задаем ей значение
.Range("A" & Rowss2).Value = "МКП ""Рингосеть"" "
.Range("B" & Rowss2).Value = Forms![Данные]![Краткое_наименование] '.Value 'если поле
.Range("E" & Rowss2).Value = Date   '.Value 'если поле
.Range("X" & Rowss2).Value = "С.А.К"
 
' задаем диапазон выбора ячеек и задаем им форматирование границ
Dim rng
rng = .Range("B" & Rowss2, "F" & Rowss2)
Call make_border_1
 
Public Sub make_border_1()
 
rng.Select
rng.HorizontalAlignment = xlCenter
Selection.Borders.Color = vbRed
 
End Sub

access ругается и на rng.Select, и на .Color

с rng.Select что-то не то в коде (разберусь с вашей помощью позже), а с .Color мне кажется дело в библиотеке

mobile · 11.02.2015, 21:40

Сообщение от intersk

другой библиотеки с именем Excel не подключено.

Я и не говорил про библиотеку. Такое сообщение появляется, когда в пространстве имен есть дубли. Для библиотек дублем может быть имя модуля или модуля класса.

Сообщение от intersk

access ругается и на rng.Select, и на .Color

Конечно, будет недоволен. Range это объект и присваивается только через Set

Visual Basic
1
Set rng = .Range("B" & Rowss2, "F" & Rowss2)

А у Selection нет родителя

Visual Basic
1
rng.Selection.Borders.Color = vbRed

@intersk · 11.02.2015, 21:54 **[ТС]**

решено: один из модулей назывался Excel, переименовал его и библиотека подключилась

Добавлено через 13 минут

Сообщение от mobile

rng.Selection.Borders.Color = vbRed

мне подсказали что нужно

Visual Basic
1
Selection.Borders(-1).Color = vbRed

не учел что это не переменная, а объект. В конце процедуры стирать значение?

mobile · 11.02.2015, 22:05

Сообщение от intersk

мне подсказали что нужно

Да, я упустил, конечно. Бордеров много - левый, правый, нижний, верхний. Каждый из них имеет свой индекс. Номер индекса легко узнать в екселе, записав макрос с форматированием ячеек. Индексы бордеров, правда будут заданы екселевскимим константами. Но если Вы подключаете ексель, то они станут известны, если же поздним соединением (задавая аппликейшн екселя через CreateObject), то надо там же в екселе, в области отладки (Immediate) спросить ексель чему равна константа. Типа такого (приведены имена констант бордеров)

Visual Basic
1
2
3
4
5
6
7
8
?xlEdgeLeft
 7 
?xlEdgeTop
 8 
?xlEdgeBottom
 9 
?xlEdgeRight
 10

@intersk · 12.02.2015, 10:59 **[ТС]**

mobile, это уже другая задача, не связанная с библиотекой, поэтому создал новую тему

Добавлено через 26 минут
Как установить границы ячейки Excel из VBA (Access)

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@intersk 114 / 4 / 0 Регистрация: 07.09.2014 Сообщений: 329

	Ошибка подключеия бибилиотеки Excel 11.02.2015, 17:03. Показов 1156. Ответов 6 Метки нет (Все метки) при попытке подключить библиотеку Microsoft Excel 14.0 Object library к Access появляется такая ошибка: Миниатюры 0

mobile 26825 / 14505 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	11.02.2015, 17:13
	Очень вероятно, что один из модулей называется Excel. Почти уверен, что именно так 1

@intersk 114 / 4 / 0 Регистрация: 07.09.2014 Сообщений: 329
	12.02.2015, 10:59 [ТС]
	mobile, это уже другая задача, не связанная с библиотекой, поэтому создал новую тему Добавлено через 26 минут Как установить границы ячейки Excel из VBA (Access) 0

Ошибка подключеия бибилиотеки Excel

Решение