Delphi excel формат ячейки текстовый

How do I set Excel column types and formatting?

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:

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.

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

2 Answers 2

The problem is that the assigned values are Unicode strings. Try this:

You haven’t said «how you are doing things manually» which means people have to completely guess what you’re doing. So here’s my wild guess:

If I assume you’re using the Express Spreadsheet component from Developer Express I have estensive experience with this component. It does not support arbitrary numeric formats. It supports a «money» format (0.00) with exactly two decimal places. It does not support three or one, or any other number of decimal places. If so, this is a known by-design issue in the Express spreadsheet.

If by manually you mean that «sheet» as you show above is an OLE object and you’re communicating via OLE Automation to Excel itself, then you should be formatting CELLS either individually or as a range, and not column objects. I am not sure how column object formats would ever override the cell values, if they do at all. The formatting of cells is generally a cell by cell matter, and must be dealt with as such.

If you really want this to work properly you won’t use Excel via OLE automation, you’ll get a proper Excel XLS format capable writing library. I was quite sure that you could get proper results directly from the CX (DevEx) db grid, but I would ask on their forums, not here. With a regular DB Grid, I’d just use TJvDBGridExcelExport which comes in the Jedi JVCL, and which works with the regular VCL DB Grid.

Источник

Delphi excel текстовый формат ячейки

Как програмно произвести форматирование ячеек в excel (например сделать ячейку в текстовом формате, изменить ширину столбца и т.д.)

← →
Татьяна ( 2003-05-13 08:37 ) [1]

Когда-то давно занималась этой проблемой, вот кусочек кода,
наверное можно делать и как-то по-другому, это просто как вариант
ответа на твой вопрос.

procedure TFMenu21.RadioButton5Click(Sender: TObject);
const
xlCenter=-4108;
XLWBatWorksheet=-4167;// для создания книги с одной страницей
Var
xl : OleVariant;
x,i,first : integer; // first для переименования страницы с именем «Лист1»
x1,y1 : integer; // для выделения диапазона в Excel
begin
try
// Excel уже запущен?
xl:=GetActiveOleObject(«Excel.Application»);
ShowMessage(«У Вас уже загружен Excel.Завершите его работу, а затем повторите вывод»);
xl.Application.WindowState:=-4137;
//xl.Visible:=True;
xl.Quit;
xl:=Unassigned;
Exit;
except
// Hет, еще нет.
xl:=CreateOleObject(«Excel.Application»);
end;
xl.Workbooks.Add[XLWBatWorksheet];
// xl.Visible:=True;
first:=1;
x1:=0;
Y1:=0;
For i:=3 downto 1 do begin
x:=2;
if first=0 then xl.Workbooks[1].Worksheets.Add else first:=0;
If i=1 then
begin
xl.Range[xl.Cells[x,2],xl.Cells[x+1,14]].MergeCells:=True; // объединение ячеек
xl.Range[xl.Cells[x,2],xl.Cells[x+1,14]].WrapText:=True; // перенос текста
xl.Workbooks[1].Worksheets[1].Name:=»имя страницы»;

// Вывожу какую-то шапку таблицы
x:=x+1;
xl.Range[xl.Cells[x,2],xl.Cells[x+2,2]].MergeCells:=True; // объединение ячеек
xl.Cells[x,2]:=»столбик 1″;
xl.Range[xl.Cells[x,3],xl.Cells[x+1,4]].MergeCells:=True; // объединение ячеек
xl.Cells[x,3]:=»столбик 2″;
// Вывожу данные из Ttable (DM.TsvodD1) в Excel
DM.TSvodD1.Open;
DM.TSvodD1.First;
x1:=x; // запоминаю начальную строку
While not DM.TSvodD1.Eof do
begin
xl.Workbooks[1].WorkSheets[1].Activate;
xl.ActiveWindow.DisplayZeros:=False; // не показывать нули
xl.ActiveWindow.DisplayGridlines:=False; // не показывать сетку
// жирный шрифт xl.Range[xl.Cells[x,2],xl.Cells[x,2]].Font.Bold:=True;
xl.Cells[x,2]:=DM.TSvodD1F.Value;

if DM.TSvodD1T.Value=1 then xl.Cells[x,3]:=» 0.3″;
if DM.TSvodD1T.Value=3 then xl.Cells[x,3]:=» 0.5 «;

xl.Range[xl.Cells[x,7],xl.Cells[x,7]].NumberFormat:=»@»; // установка текстового формата для ячейки
xl.Cells[x,14]:=DM.TSvodD1Proc.Value;
x:=x+1;
DM.TSvodD1.Next;
end; // while not TSvodD1.Eof
y1:=x-1; // запоминаю конечную строку

// вывожу итоги
xl.Workbooks[1].WorkSheets[1].Rows.Rows[x].RowHeight:=44.25; // высота строки
xl.Range[xl.Cells[x,2],xl.Cells[x,14]].WrapText:=True;

// Форматирую
xl.Workbooks[1].worksheets[1].Range[xl.Cells[1,2],xl.Cells[x,14]].VerticalAlignment:=2;
xl.Workbooks[1].worksheets[1].Range[xl.Cells[x-3,2],xl.Cells[x,14]].HorizontalAlignment:=xlCenter; // выводить в центре ячейки
xl.Workbooks[1].worksheets[1].Range[xl.Cells[x-3,2],xl.Cells[x,14]].Font.Bold:=True;
xl.Workbooks[1].worksheets[1].Range[xl.Cells[x-3,3],xl.Cells[x-3,14]].Borders.Weight := 2;
// устанавливаю ширину колонок
xl.Workbooks[1].worksheets[1].Columns.Columns[1].ColumnWidth:=2.43;
// границы ячейки
xl.Workbooks[1].worksheets[1].Range[xl.Cells[x1,2],xl.Cells[y1,2]].NumberFormat:=»0,0″;
xl.Range[xl.Cells[x1,4],xl.Cells[y1,4]].NumberFormat:=»0,0″;

← →
Валера ( 2003-05-13 09:14 ) [2]

Можно сделать проще, запусти Excel, запусти запись макроса и делай что тебе нужно, то как ворматирование текста, установка ширины ячейки, да всё что угодно, а потом смотри что он там на генерировал в Visual Basice .

← →
Соловьев ( 2003-05-13 09:25 ) [3]

> Валера (13.05.03 09:14

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

← →
rosl ( 2003-05-13 09:32 ) [4]

Источник

Delphi excel текстовый формат ячейки

Всем здраствуйте!
Открываю из под Delphi файл используя Excel OleObject

function XlsToStringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean;
var
XLApp, Sheet: OLEVariant;
RangeMatrix: Variant;
x, y: Integer;
begin
Result := False;
XLApp := CreateOleObject(«Excel.Application»);
try
XLApp.Visible := False;
XLApp.Workbooks.Open(AXLSFile);

Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

x := XLApp.ActiveCell.Row;
y := XLApp.ActiveCell.Column;

//XLApp.Range[«A1″, XLApp.Cells.Item[X, Y]].NumberFormat:=»@»;
.
И так далее.
.
finally
if not VarIsEmpty(XLApp)
then begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
Result := True;
end;
end;
end;

Тут такая беда. Excel по умолчанию открывает все ячейки в ОБЩЕМ формате, т.е. преобразует из как ему нравится. А мне надо в ТЕКСТОВОМ, т.е. чтобы ячейки открылись так как есть. Пытаюсь менять формат (заремареные строки) — вроде получается, но.
Ячейки УЖЕ переформатированы, т.е. это ничего не дает и еще больше запутывает данные и формат нужно поменять (задать) ДО ОТКРЫТИЯ ФАЙЛА (заполнения ячеек).

Как это сделать?
Спасибо.

Вариант «заранее сохранить xls файл задав текстовый формат всем ячейкам» не предлагать пожалуйста. (Excel открывает и другие «ячеистые» форматы)

← →
КаПиБаРа © ( 2004-11-05 11:27 ) [1]

Непонятно что не работает. Вроде все правильно делаешь.
Вобщем логика такая.
Открываем файл.
Задаем формат у диапазона ячеек.
Вносим данные в эти ячейки.

← →
КиТаЯц © ( 2004-11-05 13:12 ) [2]

Тут такое дело. Мне не надо вносить данные в ячейки Excel, мне надо их отттуда забрать (из готового файла). А он «открывается неправильно» — при открытии данные преобразовываются.

>Открываем файл.
>Задаем формат у диапазона ячеек.
Не получается — ячейки уже преобразовались и смена формата еще больше путает данные.

Короче, скорее всего вопрос содится к такой формулировке:
«Как из под Delphi задать Excel-OLE-обекту чтобы по умолчанию он все ячейки в «текстовом» формате, а не в «общем»?»

← →
Symb ( 2004-11-05 13:31 ) [3]

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

← →
КиТаЯц © ( 2004-11-05 13:42 ) [4]

2 Symb
Нет. Все так, как я описал. Собственно с Excel я начал заморачиваться как с универсальной штукой которая открывает кучу форматов от HTML до DBF.
Подробнее: http://www.dunin.hotmail.ru/xlsimp.html (там я, собственно, касаюсь вставшей проблеммы при открытии HTML-ки)

КиТаЯц © (05.11.04 13:42) [4]
1. А если файл врукопашную в екселе открыть, данные правильно отображаются?

2. С каким типом данных проблемы? Случайно не с датой?

← →
Gloomer © ( 2004-11-05 13:54 ) [6]

В Excel»e (чистый лист) форматируешь нужные ячейки, сохраняешь как шаблон (*.xlt). Потом в своей проге открываешь свой шаблон и.
Только в твоей проге открывается только один файл AXLSFile, а где же ячейки в общем формате?

← →
Symb ( 2004-11-05 13:59 ) [7]

А! Так значит открывается не .xls файл?

function Open(const Filename: WideString; UpdateLinks: OleVariant; ReadOnly: OleVariant; Format: OleVariant; Password: OleVariant; WriteResPassword: OleVariant; IgnoreReadOnlyRecommended: OleVariant; Origin: OleVariant; Delimiter: OleVariant; Editable: OleVariant; Notify: OleVariant;
Converter: OleVariant; AddToMru: OleVariant; lcid: Integer): Workbook; safecall;

Ну, только в поле Converter может быть что-то полезное, да и то не факт.

← →
КиТаЯц © ( 2004-11-05 14:04 ) [8]

2 КаПиБаРа
1. Нет
2. Когда Время выглядит примерно так 01.01.01, то приображается в дату 01.01.2001; дата преображается как ей захочется, а № телефонов начинающиеся с +7 (+79272999999) преображаются в формулу какую-то страшную.

2 Gloomer
Через шаблон — это вариант 🙂 Чего-то сразу в голову не пришло. Сразу вопрос:
Sheet := XLApp.Workbooks[1].WorkSheets[1];
.
задаем форматы
.
Sheet.SaveAs(?) — что здесь писать для сохранения шаблона? достаточно только имя+.xlt подставить?

← →
Gloomer © ( 2004-11-05 14:16 ) [9]

> Sheet.SaveAs(?) — что здесь писать для сохранения шаблона? достаточно только имя+.xlt подставить?

Вот именно, этого достаточно. При открытии шаблона имя доку не присваивается, точнее «Имя_шаблона»+номер_дока.xls
И еще — у тебя данные экспортируются из Excel или импортируются?
Если экспортируются, то какая тебе разница до формата — мас преобразуешь как надо.
Если импортируются, то задаешь формат, а потом присваиваешь значение ячейке.

Источник