Untitled

Процедура BExcelHaСервере ()
ПолноеИмяфайла = "С:\Users\Лиза\Desktop\DeloSotrudnika.xlsx";
КнигаЭксель = Новый COМобъект ("Excel.Application");
КнигаЭксель. WorkBooks.Open (ПолноеИмяфайла)
КнигаЭксель.Visible = 0;
КнигаЭксель. ActiveWindow.DisplayWorkbookTabs = 1;
КнигаЭксель.DisplayAlerts = Ложь;
Лист = КнигаЭксель.WorkSheets (1);
НомерСтроки = 1;
НомерКолонки = 1;
Ячейка1 = Лист.Cells (4,4);
Ячейка1.Value =
Объект. Должность. Наименование;
Ячейка2 = Лист.Cells(6,4);
Ячейка2.Value = Объект. Наименование;
Ячейка3 = Лист.Cells (8,4);
Ячейка3.Value = Объект. ДатаПриема;
Ячейка4 = Лист.Cells (10,4);
Ячейка4.Value = Объект. ДатаУвольнения;
Ячейка5 = Лист.Cells (15,2);
Ячейка5.Value = Объект. СерияПаспорта;
Ячейка6 = Лист.Cells (15,4);
Ячейка6.Value = Объект. СерияПаспорта;
Ячейка7 = Лист.Cells (18, 1);
Ячейка7.Value = Объект. Выдан;
Ячейка8 = Лист.Cells (21, 1);
Ячейка8.Value = Объект. Адрес;
КнигаЭксель.
ActiveWorkbook.SaveAs("D:\Личные дела сотрудников\"+Объект.Наименование+".xls");
КнигаЭксель. Application.quit ();
КонецПроцедуры