Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Excel и NumberFormat 


fishka   (2002-01-09 17:27) [0]

Программой Delphi создаю отчет в Excel. Необходимо отформатировать ячейку. Макрос Basic выглядит следующим образом:
Selection.NumberFormat = "#,##0.00_р_."
Подскажите, пожалуйста, как эта команда будет в Delphi?



fishka   (2002-01-10 15:31) [1]

Ну, очень хочется получить ответ. Неужели никто не делает отчеты в Excel и не форматирует ячейки?



Mambet   (2002-01-11 06:42) [2]

Я делаю так.

var Excel : Variant;
...
Excel := GetActiveOLEObject("Excel.Application");
Excel.ActiveSheet.cells[x,y].NumberFormat :=
"0"+DecimalSeparator+"0";



fishka   (2002-01-14 09:52) [3]

Спасибо за совет, но не получается.
Выдается ошибка:
БНельзя установить свойство NumberFormat класса Range.
Как правильно написать? x,y - это целые числа?



Сергей Иванов   (2002-01-14 12:45) [4]

x, y - это OleVariant



MetallAdm   (2002-01-14 13:21) [5]

var
XL, XArr: Variant;
i : Integer;
j : Integer;
fname,st1:String;
xf:String;
yf:String;
a,b,c:String;
tshor:String;
begin
XArr:=VarArrayCreate([1,10],varVariant);
XL:=CreateOLEObject("Excel.Application");
XL.WorkBooks.add;
XL.visible:=true;
j:=2;
XL.Range["C"+IntToStr(j),CHR(64+10)+IntToStrj)].Value := XArr; -- Пихаю текст в выделенный участок можно выделить и столбец

допустим у меня есть уже текст в ентом месте
я его выделяю
XL.Range["B"+IntToStr(j),CHR(64+10)+IntToStr(j)].Select;
XL.Selection.Font.Bold := True;
XL.Selection.Interior.ColorIndex := 16;
и макросом меняю цвет фона и делаю шрифт жирным
непонятно будет пиши на мыло :))



MetallAdm   (2002-01-14 13:28) [6]

Сорри забыл мыло указать
postmaster@ether.chelny.ru



MetallAdm   (2002-01-14 13:45) [7]

А если конкретней !

XL.Range["A1","B2"].Select;
Выделяется ента облась
и Выделенную область меняешь
XL.Selection.NumberFormat := "0.00"; если числовой 0.00;
XL.Selection.NumberFormat := "#,##0.00$"; если денежный 0.00р

я думаю что понятно и просто



fishka   (2002-01-14 13:57) [8]

to MetallAdm: Спасибо за советы. Если после выделения ячейки (столбца) написать так:
XL.Selection.NumberFormat := "0.00";
то выдается та же ошибка:
Нельзя установить свойство NumberFormat класса Range.
Причем, шрифт, ширину колонки можно изменить, и я это делаю так же, как предлагаете Вы.
В чем моя ошибка? Чего не хватает в программе?




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.05 c
3-18732           Oleg Fomicheff        2002-01-04 03:33  2002.02.07  
Как прикрутить DLL от BDE?


4-19035           Snake2000             2001-12-10 13:38  2002.02.07  
Громкость.


4-19029           McSimm                2001-12-11 19:08  2002.02.07  
LogonUser и привилегии


3-18697           Mr.Hunter             2002-01-09 12:18  2002.02.07  
Как определить имя БД , зная только название поля


3-18709           KMZ                   2002-01-10 08:17  2002.02.07  
Мастера помогите плиз с проблемой,добавляю запись в таблицу MS SQL servere