не работает GetActiveOleObject в Excel

@Lendor · Регистрация: 13.02.2013

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

добрый день. не могу понять почему не работает
есть код

Delphi
1
2
3
4
5
6
7
8
try
  Excel := GetActiveOleObject('Excel.Application');
 except
   on EOLESysError do
  begin
  Excel := CreateOleObject('Excel.Application');
   end;
 end;

но, не смотря на обработчик ршибок, все равно выпадает ошибка EOLESysError 'Операция недоступна'
пробовал на ХР и 7, везде стоит 2003 офис и пакет обеспечения совместимости для 2007 офиса

@Mawrat · 29.03.2013, 21:35

GetActiveOleObject() подключается к активному OLE-объекту. Т. е, чтобы вызов прошёл без ошибок, в это время уже должен быть запущен экземпляр MS Excel - к нему произойдёт подключение. Если MS Excel в данный момент не запущен, то возникнет исключение EOLESysError. В этом случае представленный код запустит новый сеанс MS Excel и подключится к нему.

@Lendor · 29.03.2013, 22:10 **[ТС]**

в том-то и проблема что не срабатывает, а выпадает в ошибку

@Mawrat · 29.03.2013, 22:21

Тогда пока не понятно, в чём дело...

Добавлено через 3 минуты
Можно включить режим отладки библиотечных модулей и посмотреть на каком этапе возникает исключение:

Delphi
1
2
3
4
5
6
7
8
9
function GetActiveOleObject(const ClassName: string): IDispatch;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  ClassID := ProgIDToClassID(ClassName);
  OleCheck(GetActiveObject(ClassID, nil, Unknown));
  OleCheck(Unknown.QueryInterface(IDispatch, Result));
end;

По этому можно будет примерно предположить в чём дело. - Возможно OLE объекты офиса неверно зарегистрированы в системе.

@cotseec · 29.03.2013, 22:31

запуск происходит под Delphi? если запустить скомпилированный экзешник из проводника?

@Lendor · 30.03.2013, 09:12 **[ТС]**

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

запуск происходит под Delphi? если запустить скомпилированный экзешник из проводника?

хм, в delphi выдает ошибку, а при запуске экзешника все норм

@Mawrat · 30.03.2013, 11:59

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

хм, в delphi выдает ошибку, а при запуске экзешника все норм

Потому что try - except используется - исключение перехватывается и гасится. При выполнении под отладчиком это исключение сначала перехватывает отладчик и показывается соответствующее сообщение об ошике. Потом исключение обрабатывается в разделе except - end.

@Lendor · 30.03.2013, 13:37 **[ТС]**

понятно, спасибо

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Mawrat 13116 / 5897 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	29.03.2013, 21:35
	GetActiveOleObject() подключается к активному OLE-объекту. Т. е, чтобы вызов прошёл без ошибок, в это время уже должен быть запущен экземпляр MS Excel - к нему произойдёт подключение. Если MS Excel в данный момент не запущен, то возникнет исключение EOLESysError. В этом случае представленный код запустит новый сеанс MS Excel и подключится к нему. 0

@Lendor 0 / 0 / 0 Регистрация: 13.02.2013 Сообщений: 34
	29.03.2013, 22:10 [ТС]
	в том-то и проблема что не срабатывает, а выпадает в ошибку 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	29.03.2013, 22:31
	запуск происходит под Delphi? если запустить скомпилированный экзешник из проводника? 1

@Lendor 0 / 0 / 0 Регистрация: 13.02.2013 Сообщений: 34
	30.03.2013, 13:37 [ТС]
	понятно, спасибо 0