Работа с excel из outlook. Library not registered

@bonanza · Регистрация: 23.03.2015

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

Добрый день.
Возникла задача формировать таблицу excel из макроса outlook.
Оба приложения установлены одновременно из одного дистрибутива msOffice 2010, установлен sp1.
Без подключения объектной библиотеки excel (tools > references, microsoft excel 14.0 object library) не работает раннее связывание и среда ругается на такие сложные вещи, как range. Cells при этом понимает ).
Если подключить библиотеку - возникает ошибка "Automation error. Library not registered".

Ошибка возникает, например на 2 строе этого кода:

Visual Basic

1 2	dim xlApp as excel.application set xlApp = CreateObject("excel.application")

Как это лечить?

@snipe · 20.03.2019, 08:24

Visual Basic

1	dim xlApp as object

так раннее связывание и предполагает что библиотека уже подключена (принудительно руками)
а вот позднее связывание не предполагает что библиотека подключена
что лучше - тут много про это уже сказано
по мне так ...
в процессе разработки кода подключить библиотеку
а при передаче в эксплуатацию переделать код на позднее связывание

Добавлено через 9 минут
и аккуратнее с префиксом xl в переменных
Excel этот префикс использует для обозначения своих констант

@bonanza · 20.03.2019, 09:15 **[ТС]**

snipe, подскажите, как в тексте макроса outlook подключить библиотеку экселя!
Поставить галочку в referenses, походу, на моем компе недостаточно (win10 + office 2010). Хотя у коллеги с win7 ошибка пропадает.
PS про префикс спасибо, учту!

@snipe · 20.03.2019, 10:08

может все таки excel криво стоит

@bonanza · 20.03.2019, 12:27 **[ТС]**

snipe, тоже об этом подумал. Изначально было win10_x64 + office 2010_x86.
переустановил этот же офис - не помогло, поставил office 2010_x64 - не помогло. Установка sp2 в обоих случаях так же не повлияла. Другие версии офиса ставить не могу.
Скрипт валится в ошибку "библиотека не зарегистрирована".
может есть возможность как-то ее перегистриировать?

зы. как альтернатива - можно попробовать отключить либу и полностью объявлять все методы... но там тоже для меня есть непонятки.

Visual Basic

1
2
3

Set xlApp = CreateObject("Excel.Application")
Set xlWbRep = xlApp.Workbooks.Open("d:\monitoring.xlsx")
xlApp.xlWbRep.worksheets("Лист1").range(cells(3, iFCol), cells(45, iFCol + 5)).Clear

в этом коде среда не понимает слово cells.
Как это написать корректно?

@pashulka · 20.03.2019, 12:33

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

в этом коде среда не понимает слово cells.

Нужно просто явно указать родителя, т.е.

Visual Basic

Set xlApp = CreateObject("Excel.Application")
Set xlWbRep = xlApp.Workbooks.Open("d:\monitoring.xlsx")
With xlApp.xlWbRep.Worksheets("Лист1")
     .Range(.Cells(3, iFCol), .Cells(45, iFCol + 5)).Clear
End With

@bonanza · 20.03.2019, 12:48 **[ТС]**

это я уже пробовал.
на строке With xlApp.xlWbRep.Worksheets("Лист1") скрипт падает с ошибкой "object doesnt support this property or method"

@pashulka · 20.03.2019, 13:03

Сорри, за копирование Ваших ошибок

Visual Basic

1	With xlWbRep.Worksheets("Лист1")

или

Visual Basic

1	With xlApp.Workbooks("Monitoring.xlsx").Worksheets("Лист1")

@bonanza · 20.03.2019, 16:07 **[ТС]**

pashulka, спасибо, завтра попробую.
Похоже беда с либой связана с доменными политиками, а значит в нашем случае неизлечима )
А можете объяснить теоретическую разницу между моей кривой конструкцией и предложенными Вами вариантами? Ну так, для моего общего развития ))

@pashulka · 21.03.2019, 07:34

bonanza, На официальном сайте можно найти статью о необходимости явно указывать родителя и для Cells

Excel automation fails second time code runs

@bonanza 2 / 2 / 1 Регистрация: 23.03.2015 Сообщений: 78
	20.03.2019, 09:15 [ТС]	3
	snipe, подскажите, как в тексте макроса outlook подключить библиотеку экселя! Поставить галочку в referenses, походу, на моем компе недостаточно (win10 + office 2010). Хотя у коллеги с win7 ошибка пропадает. PS про префикс спасибо, учту! 0

@snipe 4080 / 1460 / 401 Регистрация: 07.08.2013 Сообщений: 3,651
	20.03.2019, 10:08	4
	может все таки excel криво стоит 0

@bonanza 2 / 2 / 1 Регистрация: 23.03.2015 Сообщений: 78
	20.03.2019, 12:48 [ТС]	7
	это я уже пробовал. на строке With xlApp.xlWbRep.Worksheets("Лист1") скрипт падает с ошибкой "object doesnt support this property or method" 0

@bonanza 2 / 2 / 1 Регистрация: 23.03.2015 Сообщений: 78
	20.03.2019, 16:07 [ТС]	9
	pashulka, спасибо, завтра попробую. Похоже беда с либой связана с доменными политиками, а значит в нашем случае неизлечима ) А можете объяснить теоретическую разницу между моей кривой конструкцией и предложенными Вами вариантами? Ну так, для моего общего развития )) 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	21.03.2019, 07:34	10
	bonanza, На официальном сайте можно найти статью о необходимости явно указывать родителя и для Cells Excel automation fails second time code runs 1

Работа с excel из outlook. Library not registered

Решение