Ошибки при экспорте в Excel

← →
NGPOL (2010-04-18 21:24) [0]

1. Создал книгу, перевел туда данные, какие нужно, но при показе листа Excel оакзывается, что числовые данные представлены в текстовом виде, о чем мне говорят зеленые "галочки" в ячейках. При попытке выполнить этот код:
Worksheet.Range["B" + IntToStr(1),"B" + IntToStr(C+1)].NumberFormat:= "#,##0.00";
Выпадает ошибка:
"Нельзя установить свойство NumberFormat класса Range".
Что ж делать?

← →
Игорь Шевченко © (2010-04-18 22:07) [1]

> Что ж делать?

подсказка: свойство NumberFormat можно установить у Selection

← →
NGPOL (2010-04-18 22:46) [2]

Не получается...
Selection есть у Application. Ну т.е. у Excel.
строка
XLApp.Selection.NumberFormat:= "#,##0.00";
вызывает недовольство.
В всплывающей подсказке есть Selection[lcid:integer], но у него нет NumberFormat...

← →
Игорь Шевченко © (2010-04-18 23:41) [3]

> XLApp.Selection.NumberFormat
> вызывает недовольство.

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=924

← →
NGPOL (2010-04-19 09:43) [4]

Спасибо! То, что нужно!

← →
NGPOL (2010-04-20 07:19) [5]

Оказывается, не все так просто! Я включил в состав программы модуль TDispCall, как написано в статье, и Delphi перестал "спотыкаться" на строчке с NumberFormat, но в указанном диапазоне ничего не происходит! Значения из запроса передаются, как текст. И, видимо, NUMBERformat, с ними работать не хочет. И не форматирует...
Вот это хоть как-то поправило положение:
for i := 0 to (C - 1) do if not VarIsEmpty(MainQuery.Fields[i].Value) then TabGrid[i, 1] := Format("%4.2f", [MainQuery.Fields[i].AsFloat]);
Спасибо всем!

.Cells[i,1].NumberFormat := AnsiString("@");

Ошибки при экспорте в Excel_1 Найти похожие ветки