Скачать: CL | DM;

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

← →
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]);

Спасибо всем!

---

← →
Демо ©   (2010-04-20 10:17) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.049 c