[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 форматирует телефон в дату и как зделать нормально ???
ЗАРАНЕЕ ВСЕМ ОТВЕТИВШИМ ОГРОМНОЕ СПАСИБО !

[Aristarh Dark]

Excel - он типа умный и пытается сам "догадаться" что ты ему подсовываешь. Укажи в свойствах ячейки тип "Текстовый" и будет тебе счастье.

[k@Z@k]

Код:

ExApp:= CreateOleObject('Excel.Application');
ExApp.workbooks[1].worksheets[1].rang['a1:b2'].NumberFormat:='000-00-00';

[antoni]

Сообщение от k@Z@k

Код:

ExApp:= CreateOleObject('Excel.Application');
ExApp.workbooks[1].worksheets[1].rang['a1:b2'].NumberFormat:='000-00-00';

Вот полностью код

Код:

procedure Tspr_org.RzToolButton1Click(Sender: TObject);
  var
 XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
  XArr:=VarArrayCreate([1,DataModule1.ADOQuery_org.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;
 j := 1;
 datamodule1.ADOQuery_org.First;
 while not datamodule1.ADOQuery_org.Eof do
  begin
   i:=1;
   while i<=datamodule1.ADOQuery_org.FieldCount do
    begin
     XArr[i] := datamodule1.ADOQuery_org.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+datamodule1.ADOQuery_org.FieldCount)+IntToStr(j)] := XArr;
   datamodule1.ADOQuery_org.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+datamodule1.ADOQuery_org.FieldCount)+IntToStr(j)].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;

Admin: Пользуемся тегами, иначе санкции!

Мне нужно столбец B отформатировать так чтобы не получалась вот такая фигня
2-48-08
2-49-72
2-51-40
14.03.1938
19.03.1941
22.03.1950
29.03.1932
29.03.1940
3-32-20
3-32-53

[san-46]

Поковыряйтесь здесь.
http://www.delphikingdom.com/asp/vie...?catalogid=920