| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

NGPOL ©   (2010-04-18 21:24:00) 

1. Создал книгу, перевел туда данные, какие нужно, но при показе листа Excel оакзывается, что числовые данные представлены в текстовом виде, о чем мне говорят зеленые "галочки" в ячейках. При попытке выполнить этот код:

Worksheet.Range['B' + IntToStr(1),'B' + IntToStr(C+1)].NumberFormat:= '#,##0.00';

Выпадает ошибка:
"Нельзя установить свойство NumberFormat класса Range".
Что ж делать?

---

Демо   (2010-04-20 10:17:00) [1]

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

---

NGPOL   (2010-04-20 07:19:00) [2]

Оказывается, не все так просто! Я включил в состав программы модуль 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]);

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

---

NGPOL   (2010-04-19 09:43:00) [3]

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

---

Игорь Шевченко   (2010-04-18 23:41:00) [4]

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


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

---

NGPOL   (2010-04-18 22:46:00) [5]

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

---

Игорь Шевченко   (2010-04-18 22:07:00) [6]

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


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

---

Наверх