VPF::автоматизация Excel - Форум программистов

UhaMurad

Дата 13.5.2005, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 22.9.2004
Где: Махачкала

Репутация: нет
Всего: нет

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

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

Код


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

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

Спасибо!

Akella

Дата 3.6.2005, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

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

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

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

DimassS

Дата 4.5.2006, 05:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

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

Код


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;

Это сообщение отредактировал(а) Girder - 4.5.2006, 08:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »