for i := 0 to Grid.DataController.DataSet.RecordCount - 1 do begin
   for j := 0 to grid.VisibleColumnCount - 1 do begin
     S := S + StringReplace(Grid.ViewData.Rows[i].DisplayTexts[j], ';', '', [rfReplaceAll]) + ';'; // .DataController.DataSet.Fields[j].AsString, ';', '', [rfReplaceAll]); //{DataController.DataSet.FieldsByName().AsString,} ';', '', [rfReplaceAll]) + ';';
   end;
   S := Copy(S, 1, Length(S) - 1);
   S := StringReplace(S, #$D, '', [rfReplaceAll]);
   S := StringReplace(S, #$A, '', [rfReplaceAll]);
   S := StringReplace(S, #9, '', [rfReplaceAll]);
   Table.Add(S);
   S := '';
   FRM_Export.PB.Position := i;
   FRM_Export.Label1.Caption :=IntToStr(i) + ' из ' + InttoStr(Grid.DataController.DataSet.RecordCount);
   Application.ProcessMessages;
 end;
 grid.DataController.DataSet.EnableControls;
 Path := ExtractFilePath(Application.ExeName);
 Table.SaveToFile(Path + 'tmp.csv');
 try
   FRM_Export.Label1.Caption := 'Форматирование';
   Application.ProcessMessages;
   XL := CreateOleObject('Excel.Application');
   Workbook := XL.WorkBooks.Add;
   XL.DisplayAlerts := False;
   XL.Visible := False;
   XL.cells.select;
   XL.selection.NumberFormat:= '@';
   Workbook := XL.WorkBooks.Open(Path + 'tmp.csv'); // тут ругается
   XL.cells.select;
   XL.selection.Columns.AutoFit;
   for col := 0 to grid.VisibleColumnCount -1 do begin
     WorkBook.WorkSheets[1].Cells.item[1,col+1].HorizontalAlignment := -4108;
     WorkBook.WorkSheets[1].Cells.item[1,col+1].VerticalAlignment := -4108;
     WorkBook.WorkSheets[1].Cells.item[1,col+1].Columns.Interior.Color :=$00FFBD9D;
     WorkBook.WorkSheets[1].Cells.item[1,col+1].Borders.LineStyle := 1;
     WorkBook.WorkSheets[1].Cells.item[1,col+1].Font.Bold := True;
     WorkBook.WorkSheets[1].Cells.item[Grid.DataController.DataSet.RecordCount + 2,col+1].Columns.Interior.Color :=$CDCDC1;
   end;

   end;