Лист.Cells(НомерСтроки, 4).Value = Стр.ЗаявОрганизация;
Лист.Cells(НомерСтроки, 5).Value = Стр.Должность;
Лист.Cells(НомерСтроки, 6).Value = Стр.ТипАкредитации;
искВА = ПолучитьВидАкр(СокрЛП(Стр.ВидыАкредитации));
Лист.Cells(НомерСтроки, 7).Value = искВА;
Лист.Cells(НомерСтроки, 8).Value = Стр.ЗоныДоступа;
Лист.Cells(НомерСтроки, 9).Value = Стр.ДополнительныеЗоны;
Лист.Cells(НомерСтроки, 10).Value = Стр.Ответственный;
Лист.Cells(НомерСтроки, 11).Value = Стр.ДКДОтметка;
НомерСтроки = НомерСтроки + 1;
КонецЦикла;
//ИмяКаталога = "\\FSSRV01\Public\AccreditationCenter\Выгрузка из центра заявок";
ИмяКаталога = "P:\AccreditationCenter\Выгрузка из центра заявок";
ДатаВремя = СтрЗаменить(Формат(ТекущаяДата(),"ДЛФ=Д"),".","_");
Попытка
Книга.SaveAs(ИмяКаталога + "\" + Объект.Подразделение + "_" + ДатаВремя + ".xlsx");
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
КонецПопытки;
Эксель.Application.Quit();
Сообщить("Выгрузка завершена!!!");
как исправить?