Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > автоматизация Excel

Автор: UhaMurad 13.5.2005, 14:50

Здравствуйте!

Вот такая проблема:

Код


EApp := CreateOleObject('Excel.Application');
EApp.Workbooks.Add;
EApp.ActiveSheet.Cells.Select;
EApp.Selection.NumberFormat := '0.00';

Во время выполнения ругается на последнюю строчку "Нельзя установить свойство NumberFormat класса Range". Что делать?

Спасибо!

Автор: Akella 3.6.2005, 11:27

Поиском умеешь пользоваться???

http://forum.vingrad.ru/index.php?showtopic=34912&st=40

ищи примеры работы с Excel

Автор: DimassS 4.5.2006, 05:57

А у меня всё получилось, посмотри...

Код


case  DataModule1.Query1.FieldByName(MyCol.Strings[j]).DataType of
          ftFloat:
            begin
              Excel.ActiveWorkBook.ActiveSheet.cells(i,j+1):=DataModule1.Query1.FieldByName(MyCol.Strings[j]).AsFloat;
            end;
          ftCurrency :
            begin
              [b]Excel.range[Excel.Cells[i, j+1], Excel.Cells[i, j+1]].NumberFormat:= '# ##0,0000ð.' ;[/b]
              Excel.ActiveWorkBook.ActiveSheet.cells(i,j+1):=DataModule1.Query1.FieldByName(MyCol.Strings[j]).Value
            end
          else
            Excel.ActiveWorkBook.ActiveSheet.cells(i,j+1):=DataModule1.Query1.FieldByName(MyCol.Strings[j]).AsString;
       end;