Как в delphi установить формат ячейки excel

Для работы с Excel в Delphi, первым делом нужно в Uses указать модуль ComObj.

procedure TForm1.Button1Click(Sender: TObject); var XL: Variant; begin XL := CreateOLEObject(‘Excel.Application’); // Создание OLE объекта XL.WorkBooks.add; // Создание новой рабочей книги XL.visible := true; end;

Как обратиться к отдельным ячейкам листа Excel в Delphi

XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Value:=’30’; //Результатом является присвоение ячейке [1,1] первого листа значения 30. Также к ячейке //текущего листа можно обратиться следующим образом: XL.Cells[1, 1]:=’30’;

Как добавить формулу в ячейку листа Excel в Delphi

XL.WorkBooks[1].WorkSheets[1].Cells[3,3].Value := ‘=SUM(B1:B2)’;

Форматирование текста в ячейках Excel, производится с помощью свойств Font и Interior объекта Cell:

// Цвет заливки XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Interior.Color := clYellow; // Цвет шрифта XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Color := clRed; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Name := ‘Courier’; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Size := 16; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Bold := True;

Работа с прямоугольными областями ячеек, с помощью объекта Range:

XL.WorkBooks[1].WorkSheets[1].Range[‘A1:C5’].Value := ‘Blue text’; XL.WorkBooks[1].WorkSheets[1].Range[‘A1:C5’].Font.Color := clBlue; //В результате в области A1:C5 все ячейки заполняются текстом ‘Blue text’.

Как выделить группу (область) ячеек Excel в Delphi

XL.Range[‘A1:C10’].Select;

Как установить объединение ячеек, перенос по словам, и горизонтальное или вертикальное выравнивание Excel в Delphi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

//Выделяем группу (область) ячеек XL.Range[‘A1:C10’].Select; // объединение ячеек XL.Selection.MergeCells:=True; // перенос по словам XL.Selection.WrapText:=True; // горизонтальное выравнивание XL.Selection.HorizontalAlignment:=3; //вериткальное выравнивание XL.Selection.VerticalAlignment:=1; //Возможны следующие значения: //1 — выравнивание по умолчанию, //2 — выравнивание слева, //3 — выравнивание по центру, //4 — выравнивание справа.

Как задать границы ячеек Excel в Delphi

XL.Selection.Borders.LineStyle:=1; // значение может быть установлено от 1 до 10

Как выровнять столбцы Excel по ширине, в зависимости от содержания

XL.selection.Columns.AutoFit;

Как удалить столбец Excel в Delphi

Как задать формат ячеек Excel в Delphi

XL.columns[1].NumberFormat := ‘@’; // текстовый формат XL.columns[1].NumberFormat := ‘m/d/yyyy’; //  формат дата XL.columns[1].NumberFormat = ‘0.00%’ // формат процентный XL.columns[1].NumberFormat = ‘h:mm;@’// формат время

---

I’m exporting data from a CxDBGrid to an Excel file.
I’m able to create the file and copy data in it, but I’m having real trouble with the column formatting. Since I’m pulling the data from a DB I’d like the spreadsheet to reflect the type: NUMBER, VARCHAR2,DATE and so on.
I visually created a macro, went to look for the VBA code, and replicated it in the Delphi project:

sheet.Columns[K+2].NumberFormat := '0,000'; //Number
sheet.Columns[K+2].NumberFormat := '@'; //Text
sheet.Columns[K+2].NumberFormat := 'm/d/yyyy'; //Date

Number formatting works ok most of the times, but the other two don’t.
When I open the generated file, the text columns show up as type «Custom» and every cell displays «-64». If I go to edit a cell, the correct value is actually there.
Date is another issue: the DB’s format is dd/mm/yyyy and if I feed it to Excel as-is, it gets all messed up. I tried setting the correct format, but then Excel doesn’t recognize it.

Any clues?

I’m also setting column width. That works flawlessly.

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

---

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

---

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

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

---

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

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

---

← →
sniknik ©
 
(2011-05-20 13:15)
[14]

а [1] это что?

---

← →
Anatoly Podgoretsky ©
 
(2011-05-20 13:23)
[15]

> 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

---

← →
Palladin ©
 
(2011-05-20 18:12)
[18]

> sniknik ©   (20.05.11 13:15) [14]

забей, пациент неадекватен

---

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Итак, сегодня разберемся как сделать наш лист Excel более красивым, а именно разберемся со следующими вопросами:

1. 1. Как добраться до конкретной границы ячейки?
   2. Как изменить внешний вид границы?
   3. Как сделать заливку ячеек цветом?
   4. Как изменить шрифт в ячейках?

1. Как добраться до конкретной границы ячейки?

Перед Вами окно изменения формата ячеек. Вкладка «Границы». Как видите Excel может отрисовывать следующие границы ячеек:

• верхнюю
• нижнюю
• левую
• правую
• диагональную из верхнего левого угла в нижний правый
• диагональную из верхнего правого угла в нижний левый

Если Вы выбираете диапазон ячеек, то дополнительно добавляются ещё два вида границ:

• внутренние горизонтальные
• внутренние вертикальные.

Кроме этого, Вы можете определить свой стиль линий для прорисовки и цвет линий. В самом Excel работа с форматом ячеек достаточно прозрачна и ясна. А вот при работе с Excel в Delphi все обстоит не так уж и радужно

Прежде чем браться за прорисовку границ, следует определиться — какой объект Вы будете для этого использовать. Вы можете прорисовать границу с помощью объектов:

1. Cells — ячейка
2. Range — диапазон ячеек
3. UsedRage — диапазон занятых ячеек

Я обычно использую третий вариант (UsedRange), так как работаю с форматами ячеек после того как перешлю необходимые данные в Excel. Кроме того, если пересылается большая таблица с данными, то использовать Cells — значит очень сильно «подвесить» свое приложение, так как надо будет добраться до каждой ячейки и изменить её формат.

Итак, будем использовать UsedRange. Теперь разберемся как нам добраться до границ.

Для того, чтобы получить доступ к коллекции границ объекта достаточно воспользоваться объектом Borders. Так как нам необходим доступ не ко всем границам, а только к конкретной, то после Borders необходимо указывать индекс границы.  В Excel определены следующие константы:

xlDiagonalDown	5	Диагональная от верхнего левого угла в нижний правый каждой ячейки в диапазоне
xlDiagonalUp	6	Диагональная из нижнего левого угла в правый верхний каждой ячейки в диапазоне.
xlEdgeBottom	9	Нижняя для всего диапазона ячеек
xlEdgeLeft	7	Левая для всего диапазона ячеек.
xlEdgeRight	10	Правая для всего диапазона ячеек.
xlEdgeTop	8	Верхняя для всего диапазона ячеек.
xlInsideHorizontal	12	Горизонтальные границы всех внутренних ячеек диапазона
xlInsideVertical	11	Вертикальные границы всех внутренних ячеек диапазона

Теперь переносим эти константы в наш модуль работы с Excel:

uses ....
const
  xlDiagonalDown = 5;
  xlDiagonalUp = 6;
  xlEdgeBottom = 9;
  xlEdgeLeft = 7;
  xlEdgeRight = 10;
  xlEdgeTop = 8;
  xlInsideHorizontal = 12;
  xlInsideVertical = 11;
....

И для того, чтобы получить доступ, например к нижней границе диапазона ячеек, пишем следующий код:

MyExcel.ActiveWorkBook.ActiveSheet.UsedRange.Borders[xlEdgeBottom]

Аналогичным образом Вы можете получить доступ к любой из восьми границ.

2. Как изменить внешний вид границы?

Доступ к границе получен. Теперь можно приступать к изменению внешнего вида.

Объект Borders имеет следующие свойства:

• LineStyle — стиль линии границы
• ColorIndex — индекс цвета границы
• Weight — толщина границы

Для каждого из этих свойств в Excel определены свои счётчики (Enumerators) или, говоря на языке Delphi — константы.

Стили линий (LineStyle) могут быть следующие:

xlContinuous	1	Непрерывная линия
xlDash	-4115	Пунктирная линия
xlDashDot	4	Пунктир с точкой
xlDashDotDot	5	Пунктир с двумя идущими подряд точками
xlDot	-4118	Линия из точек
xlDouble	-4119	Двойная линия
xlLineStyleNone	-4142	Без линий
xlSlantDashDot	13	Наклонная пунктирная

Стандартные индексы цветов, которые вы можете использовать при прорисовке границы представлены на рисунке:

Для толщины линии определены константы:

xlHairline	1	Самая тонкая граница
xlMedium	-4138	Средняя толщина
xlThick	4	Толстая граница
xlThin	2	Тонкая граница

Определите эти константы в своем модуле Delphi и можете приступать к прорисовке границ. Например, нам необходимо прорисовать внешние границы таблицы двойной линией, а внутренние — тонкими сплошными. Цвета линий оставим по умолчанию — черными. Тогда код Delphi будет выглядеть следующим образом:

...
with MyExcel.ActiveWorkBook.ActiveSheet.UsedRange do
  begin
    Borders[xlEdgeBottom].LineStyle:=xlDouble;
    Borders[xlEdgeTop].LineStyle:=xlDouble;
    Borders[xlEdgeLeft].LineStyle:=xlDouble;
    Borders[xlEdgeRight].LineStyle:=xlDouble;
    Borders[xlInsideHorizontal].LineStyle:=xlSolid;
    Borders[xlInsideVertical].LineStyle:=xlSolid;
  end;
...

Аналогичным образом Вы можете изменять границы отдельных ячеек и диапазонов, например выделить шапку таблицы или сделать перечёркнутой верхнюю левую ячейку и т.д.

Переходим к следующему вопросу.

3. Как сделать заливку ячеек цветом?

Для заливки ячеек цветом можно использовать те же константы, что и при работе с ячейками. Однако ни объект Range ни Cells не имеют свойства ColorIndex. Чтобы получить доступ к заливке ячейки или диапазона необходимо воспользоваться свойством Interior, которое дает доступ к внутренней части объекта. Например, выполнив операцию:

MyExcel.ActiveWorkBook.ActiveSheet.UsedRange.Interior

вы получите доступ к внутренней части диапазона занятых ячеек, т.е. по сути, ко всей таблице. А получив такой доступ, Вы можете делать с объектом всё, что угодно. Например изменим цвет нашей таблицы на красный:

MyExcel.ActiveWorkBook.ActiveSheet.UsedRange.Interior.ColorIndex:=3;

4. Как изменить шрифт в ячейках?

Для того, чтобы получить доступ к шрифтам, необходимо добраться до одного из свойств UsedRange, а именно до свойства Font, которое и вернет нам объект, позволяющий изменять шрифт, цвет шрифта и прочие атрибуты . Например, изменим цвет шрифта в таблице на синий:

MyExcel.ActiveWorkBook.ActiveSheet.UsedRange.Font.ColorIndex:=5;

Аналогичным образом, через объект Font Вы можете также изменить:

• Толщину шрифта
• Наклон
• Размер
• Сделать текст подчёркнутым и т.д.

Для этого достаточно воспользоваться одним из свойств объекта Fonts.

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.