Установить формат ячейки в Excel

← →
samalex2504 (2011-05-20 11:18) [0]

В программе на D7 создаю и заполняю лист Excel 2007 данными разного типа.
Excel := CreateOleObject("Excel.Application"); Excel.Application.EnableEvents := false; WorkBook := Excel.Application.WorkBooks.Add; ... WorkBook.WorkSheets[1].Columns[j].WrapText := True; WorkBook.Worksheets[1].Columns[j].VerticalAlignment := 1; WorkBook.WorkSheets[1].Cells[1,j].Font.Name := ...; WorkBook.WorkSheets[1].Cells[1,j].Font.Size := ...; WorkBook.WorkSheets[1].Cells[1,j].Borders.LineStyle := 1; WorkBook.WorkSheets[1].Cells[i, j].Value:=...;

Все это работает.
Вопрос - Как программно задать формат ячейки? В частности, чтобы был числовой формат с заданным количеством десятичных знаков и разделением разрядов по тысячам.
Также сделать формат типа "дата" (dd.mm.yyyy).
Заранее благодарен!!!

← →
sniknik © (2011-05-20 11:25) [1]

научись делать/записывать макросы в самом экселе... кушу вопросом разом решишь. нужно, что записываешь то что делаешь "руками" и смотришь как это делает эксель.

← →
samalex2504 (2011-05-20 11:35) [2]

> sniknik © (20.05.11 11:25) [1]
>
> научись делать/записывать макросы в самом экселе... кушу
> вопросом разом решишь. нужно, что записываешь то что делаешь
> "руками" и смотришь как это делает эксель.

Я уже все сделал средствам Delphi, остался только формат ячейки.

← →
sniknik © (2011-05-20 11:39) [3]

а тебе и не предлагают перенести в "средства экселя", тебе предлагают освоить инструмент который отвечает на подобные (и много сложнее) вопросы.
т.е. ситуация типа "дать рыбу" vs "научить рыбачить"

← →
Dennis I. Komarov © (2011-05-20 11:42) [4]

while ProblemExist do Read([1]);

← →
samalex2504 (2011-05-20 11:54) [5]

> Dennis I. Komarov © (20.05.11 11:42) [4]
>
> while ProblemExist do
> Read([1]);

????

← →
Anatoly Podgoretsky © (2011-05-20 11:56) [6]

> Я уже все сделал средствам Delphi, остался только формат
> ячейки.

Ошибаешься, Дельфи тут не причем, все сделал COM сервер.

← →
samalex2504 (2011-05-20 12:01) [7]

Софисты!!!
Один (Dennis I. Komarov ©) глумится.
Другой (Anatoly Podgoretsky ©) общие лекции читает.
Я быстрее сам найду.

← →
sniknik © (2011-05-20 12:06) [8]

на что только люди не идут... лишь бы не работать.
нет чтобы 3 кнопки нажать, за 5 мин научится, через 10 сделать, и в дальнейшем такими вопросами не задаваться, нет будет день "типа искать", и еще на будущее "отмазка" останется...

← →
Dennis I. Komarov © (2011-05-20 12:13) [9]

> samalex2504 (20.05.11 12:01) [7]

"... разруха не в клозетах, а в головах." (С)

← →
samalex2504 (2011-05-20 12:22) [10]

Удалено модератором
Примечание: Моедратор сам разберется, без советов

← →
Anatoly Podgoretsky © (2011-05-20 12:25) [11]

> samalex2504 (20.05.2011 12:01:07) [7]

Век ищи, все равно дураком останешься.
(с) Народная мудрость.

← →
sniknik © (2011-05-20 12:27) [12]

> А администратору просьба банить людей, пишущих не по делу ...
ты путаешь форум программистов, где учат, с форумом поддержки типа "вопрос - ответ даже если он глупый" ... тут если бы дали сразу прямой "справочный" ответ, именно это было бы "не по делу ..."

← →
samalex2504 (2011-05-20 13:04) [13]

Между прочим, мне никто так и не ответил ....

а [1] это что?

> samalex2504 (20.05.11 13:04) [13]

Плохой танцор, хороший папа.

← →
samalex2504 (2011-05-20 14:05) [16]

Удалено модератором
Примечание: Обсуждение модерирования

← →
Amoeba_ (2011-05-20 15:12) [17]

> Как программно задать формат ячейки?

Читать здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1274#09

Установить формат ячейки в Excel Найти похожие ветки