Глючит Excel

[---FISHER---]

При остановке выделяет эту строчку:

Excel.Workbooks.Open(ExtractFilePath(ParamStr(0)) + 'Образец.xls');

Но может быть дело в предыдущей или последующей?

   Excel:= CreateOleObject('Excel.Application');
   Excel.Workbooks.Open(ExtractFilePath(ParamStr(0)) + 'Образец.xls');
   Excel.ActiveWorkBook.WorkSheets[1].Cells[1, 1]:=main.year.Text + '' + main.quater.Text;

[---FISHER---]

Вот такое сообщение об ошибке. Project Project1.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process stopped. Use Step or Run to continue.

[DarkEvil]

Зделай так:

Excel.ActiveSheet.Cells[1,1].Value :=main.year.Text + ' ' + main.quater.Text;

Здается мне что вот здесь оно обращается к несуществующем листу

Excel.ActiveWorkBook.WorkSheets[1].Cells[1, 1]

[---FISHER---]

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

[DarkEvil]

Да все ты делаешь так, во всяком случае примеры кода даешь относительно правильные, может что недоговариваешь

[---FISHER---]

Офис 2003, до этого писал подобную программу всё было гладко...а какие ещё моменты могут стать решающими? Версии ПО, расположение фалов, может их атрибуты?

[---FISHER---]

у меня Delphi уже совсем отказывается открывать какие либо документы .xls из каких либо других мест. Капец Че происходит

[DarkEvil]

Вот посмотри вложения
Там все работает, может быть проблема в самом прог обеспечении...

[---FISHER---]

Твои строчки волшебны старче...А мои такие же точно не работают

[DarkEvil]

гы-гы-гы