[ART]

как очистить все клетки A1:AL900 в Excel'e из Delphi?

Код:

...
  //Работает-----------------------------------------
  XLApp := CreateOleObject('Excel.Application');
  XLApp.Workbooks.Open(Filename);
  Book := XLApp.Workbooks[1];
  Book.Activate;
 //---------------------------------------------------
  Book.Range('A1:AL900').ClearContents; //выдает ошибку
...

[ART]

Если писать макрос, то пишет:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 18.04.2011 by Zver
'

'
Range("A1:AK23").Select
Selection.ClearContents
End Sub

Как это сделать в Delphi?

[blazonic]

Эта строка выдаёт не просто ошибку. А как свидетельствует картинка с ошибкой (во вложении):
"…метод Range не поддерживается объектом автоматизации…"
Надо искать другие пути очистки ячеек…

[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.
Попробовать, как работает хотя бы это, а там посмотрим.

[ART]

Да. Проблема решена и уже давно.

Код:

Book.Sheets[1].Range['A5:AL900', EmptyParam].ClearFormats;
Book.Sheets[1].Range['A5:AL900', EmptyParam].ClearContents;