Delphi и Excel

[antoni]

Знатоки подскажите как из Delphi оформатировать столбец
в excel в этом столбце номер телефона
а при экспотре в excel получается
17.03.2016
2-29-27
24.02.1957
22.02.2004
28.02.1965
27.02.1969
2-37-83

не понимаю почему excel форматирует телефон в дату и как зделать нормально ???
ЗАРАНЕЕ ВСЕМ ОТВЕТИВШИМ ОГРОМНОЕ СПАСИБО !

[Serge_Bliznykov]

перед экспортированием присвойте нужным ячейкам (столбцу) текстовый формат (что-то типа такого:
Columns("A:A").NumberFormat = "@")

[antoni]

Сообщение от Serge_Bliznykov

перед экспортированием присвойте нужным ячейкам (столбцу) текстовый формат (что-то типа такого:
Columns("A:A").NumberFormat = "@")

А можно по подробнее, желательно на примере моего кода !

[antoni]

Сообщение от antoni

А можно по подробнее, желательно на примере моего кода !

var
XL, XArr: Variant;
i: Integer;
j: Integer;
begin
XArr:=VarArrayCreate([1,DataModule1.ADOQuery_dom.FieldCou nt],varVariant);
XL:=CreateOLEObject('Excel.Applicat ion'); // Создание OLE объекта
XL.WorkBooks.add;
XL.visible:=true;

j := 1;
DataModule1.ADOQuery_dom.First;
while not DataModule1.ADOQuery_dom.Eof do
begin
i:=1;
while i<=DataModule1.ADOQuery_dom.FieldCo unt do
begin
XArr[i] := DataModule1.ADOQuery_dom.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+DataModule1.ADOQuery_dom.Fie ldCount)+IntToStr(j)] := XArr;
DataModule1.ADOQuery_dom.Next;
j:=j+1;
end;
XL.Range['A1',CHR(64+DataModule1.ADOQuery_do m.FieldCount)+IntToStr(j)].select;
//XL.cells.select; // Выбираем все
XL.Selection.Font.Name:='Arial cur';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Selection.Borders.LineStyle:=1;
XL.Range['A1','A1'].select;

end;