[Qwed86]

Вот код экспорта в Excel там всё объявленно как Variant,и значит если в значении только цифры он распознаёт его как число и обрезает нули слева(да?), как изменить чтоб этого небыло?

Код:

procedure TMainForm.Button1Click(Sender: TObject);
var
 XLApp,Sheet,Colum:Variant;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='татата';
 Colum:=XLApp.Workbooks[1].WorkSheets['татата'].Columns;
 XLApp.WorkBooks[1].WorkSheets[1].Range['B1:E1'].Merge;

 Colum.Columns[1].ColumnWidth:=10;
 Colum.Columns[2].ColumnWidth:=10;

 Colum:=XLApp.Workbooks[1].WorkSheets['татата'].Rows;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Columns[1].font.Bold:=true;

 XLApp.WorkBooks[1].WorkSheets[1].Columns[1].HorizontalAlignment := 4;
 XLApp.WorkBooks[1].WorkSheets[1].Columns[4].HorizontalAlignment := 4;

 Sheet:=XLApp.Workbooks[1].WorkSheets['татата'];
 Sheet.Cells[1,2]:='татата';
 Sheet.Cells[3,1]:=татата';

   Sheet.Cells[1,6]:=DataModule2.ADOQuery1.Fields.Fields[1].AsString;
   Sheet.Cells[3,2]:=DataModule2.ADOQuery1.Fields.Fields[2].AsString;

end;