ИмяФайла = ПолноеИмяФайлаБезРаcширения + ".xls";
Т.Записать(ИмяФайла,1);
ВходExcel = СоздатьОбъект("Excel.Application");
ВходExcel.DisplayAlerts=0;//не показывать всякие ненужные предупреждения
ВходExcel.ScreenUpdating=0;//не обновлять экран при работе макроса
ВходExcel.Application.Workbooks.Open(ИмяФайла,0);//0-не пересчитывать ссылки,
ВходExcel.ActiveWorkBook.SaveAs(ПолноеИмяФайлаБезРаcширения,51);//Книга по умолчанию *.xlsx
ВходExcel.ActiveWorkBook.Close();
ВходExcel = "";
ФС.УдалитьФайл(ИмяФайла);
;