Проблемы с Excel

mtihonov

Выполняю скрипт

var
Excel, Book, Sheet: Variant;

begin
Excel := CreateOLEObject('Excel.Application');
Book := Excel.WorkBooks.Add;
Book.WorkSheets[3].Delete;

на некоторых машинах, в остновном с Win98 и Excel97 не выполняется последняя строчка. Дает ошибку (это FastScript овская ошибка - OLE error 80020009: WorkSheets).
Т. е. не могу обращать с листам по индексу, а надо...
Также не выполняется следующая строка
Book.ActiveSheet .Range.Font.Size := 12;
и это тоже не на всех машинах, но в тоже время строка
Book.ActiveSheet .Range.Font.Size := '12';
выполняется всегда. В чем дело, может кто подскажет?

-=Den=-

Проблема скорее всего в самом OLE так, как в старых версиях доступ к листам осуществялся иначе.

Andrew_Sh

mtihonov написал:

Выполняю скрипт

.....
Book.WorkSheets[3].Delete;

на некоторых машинах, в остновном с Win98 и Excel97 не выполняется последняя строчка. Дает ошибку (это FastScript овская ошибка - OLE error 80020009: WorkSheets).
....

Попробуйте вместо

Book.WorkSheets[3].Delete;

использовать

Book.WorkSheets.Item[3].Delete;