И снова Excel

@Adm_76 · Регистрация: 18.09.2013

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

Я в тупике... Помогите разобраться!

Delphi

try
  try Excel:= GetActiveOleObject('Excel.Application');
  except Excel:= CreateOleObject('Excel.Application');
  end;
 
  Excel.visible:= false;
  Excel.DisplayAlerts:= false;
  Excel.Application.EnableEvents:= false;
 
  BaseWB:= Excel.Workbooks.Open(FileOpen.Dialog.FileName);
 
  BaseWB.ActiveSheet.Cells.Item[100, 1].Value:= 'dsfsdf';
 
  BaseWB.Close(false);
  Excel.Quit;
  Excel:= Unassigned;
 
except
  ShowMessage('Возникла ошибка и ничего нах не получилось...');
end;

При выполнении указанного кода ексель завершается аварийно с предложением отправить отчет в МС. Что неправильно, почему не хочет нормально закрываться..?

@volvo · 15.11.2013, 14:10

Нормально всё завершается, никаких побочных эффектов, как при уже открытом экземпляре Excel-я, так и без такового. Версию Delphi и Excel можно узнать?

@Adm_76 · 15.11.2013, 18:44 **[ТС]**

Delphi 7, Excel 2010. Вот и мне кажется, что все нормально должно быть... А второй день бодаюсь...

Добавлено через 4 часа 26 минут
Пришел домой, потестил... Все работает и на 10 офисе и на 13-м. Видимо, на работе криво установленный офис. А код верный. Вопрос снят, спасибо за участие.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	15.11.2013, 14:10	2
	Нормально всё завершается, никаких побочных эффектов, как при уже открытом экземпляре Excel-я, так и без такового. Версию Delphi и Excel можно узнать? 0

@Adm_76 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 8
	15.11.2013, 18:44 [ТС]	3
	Delphi 7, Excel 2010. Вот и мне кажется, что все нормально должно быть... А второй день бодаюсь... Добавлено через 4 часа 26 минут Пришел домой, потестил... Все работает и на 10 офисе и на 13-м. Видимо, на работе криво установленный офис. А код верный. Вопрос снят, спасибо за участие. 0