Сохранение данных в excel таблице

Если ВыборкаДетальныеЗаписи.Следующий() Тогда
				Переменная1 = Переменная1+1;
				Сообщить("Найдено соответствие для физ. лица: " + ВыборкаДетальныеЗаписи.ФизЛицо);
				СерияНомер = Строка(ВыборкаДетальныеЗаписи.Серия) + " " + Строка(ВыборкаДетальныеЗаписи.Номер);
				
				Серия = Лев(ПаспортныеДанные, 6);
				Номер = Прав(ПаспортныеДанные, 6);
				ПаспортныеДанные = Строка(Серия) + Строка(Номер);
								
				Если СерияНомер = ПаспортныеДанные Тогда
					Сообщить("Серия и номер паспорта в базе и в файле совпадают. " + Символы.ПС);					
				Иначе
					Сообщить("Серия и номер паспорта в базе и в файле не одинаковые: " + ПаспортныеДанные + " <> " + СерияНомер + Символы.ПС, СтатусСообщения.Внимание);
					//ПаспортныеДанные = СерияНомер;
					Лист.Cells( 10, Переменная1).Value = СерияНомер;
					Сообщить ("Обратите внимание! Паспортные данные измененны на " + СерияНомер );
					
					//Лист.Cells(СтрокаФизЛиц, 10).Value = Число(Формат(Число(ТЗ.Найти(ЗначениеФизЛица).СотоваяСвязь), "ЧДЦ=1"));
				КонецЕсли;
			Иначе
				Сообщить("Не найдено соответствие для физ. лица: " + ФизЛицоИзЕкселя + Символы.ПС, СтатусСообщения.Внимание );
			КонецЕсли;
				ПутьКФайлуВместеСИменем = СтрЗаменить(ФайлДляЗагрузки, ".xls", "") + "_изменен обработкой" + ".xls";
				//Книга.SaveAs(ПутьКФайлуВместеСИменем);
			    
				Книга.SaveAs(ПутьКФайлуВместеСИменем);
				//Excel5.DisplayAlerts = False;	
				//Excel5.ActiveWorkbook.Close();
				Excel5.Quit();
				//Excel5 = Неопределено;