[blazonic]

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

Код:

  Book.Range('A1:AL900').ClearContents; //выдает ошибку

Похоже, в данном случае метод Range для Book (книга Excel) не существует.
Поэтому я нащупал такой вариант, где это не метод, а свойство Range имеется:

Код:

...
var
  MsExcel : variant;  // это Excel.Application
  ExcBook : variant;  // книга в Excel
...
procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    try
      MsExcel := CreateOleObject('Excel.Application');
      MsExcel.Workbooks.Open(FilePath); // FilePath - путь к файлу с именем открываемого файла

      MsExcel.Range['A1:A3'].ClearContents;
      ExcBook := MsExcel.Workbooks[1];

      ExcBook.SaveAs(FilePath);  // появляется диалог Microsoft Excel для перезаписи файла, в котором соглашаемся ОК на перезапись
      ExcBook.Close;
    finally
      ExcBook := UnAssigned;
      MsExcel := UnAssigned;
    end;
  except on Ex : Exception do
    begin
      MessageBox(0, 'Ошибка при создании документа Excel', 'Программа Train', MB_OK);
    end;
  end;
end;
...

Обратите внимание, что в свойстве Range соответственно квадратные скобки.
Приложение разрабатывается на Delphi 7 в ОС Vista, используется MS Office 2003.
Приведенный кусок кода полностью работоспособный. Попробуйте его просто целиком вставить в программу и создать книгу в Excel и заполнить только ячейки A1:A3.
Попробовать, как работает хотя бы это, а там посмотрим.