Новая внешняя обработка выгрузки по зарплатному проекту для ЗАО "Кредит Европа Банк"
В Процедуре КнопкаВыполнитьНажатие(Кнопка) надо изменить
// здесь надо поставить свой путь к шаблону
Книга = Excell.WorkBooks.Open("C:\1C\SALARY.xlsm");
// здесь надо поставить ваши коды для организации
Если Организация.Код = "000000078" Тогда
КлиентНом = "765";
ИначеЕсли Организация.Код = "000000032" Тогда
КлиентНом = "3TS";
ИначеЕсли Организация.Код = "000000099" Тогда
КлиентНом = "0RX";
КонецЕсли;
Процедура ПриОткрытии()
//куда выгружаем по умолчанию
Элементыформы.Файл.Значение = "D:\base1C\Ведомость.xlsm";
КонецПроцедуры
Вариант 2 (внешний шаблон)
Процедура КнопкаВыполнитьНажатие(Кнопка)
Попытка
Excell = Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
Возврат;
КонецПопытки;
Книга = Excell.WorkBooks.Open("C:\maket_nerezedent.xls"); //******здесь необходимо указать путь к шаблону
.....
***************
Ключевые моменты:
Макет = ПолучитьМакет("Макет");
Книга = Макет.Получить();
Лист = Книга.WorkSheets(1); // Установка листа в качестве рабочего с номером 1.
Лист.Cells(1,1).Value = "1234567";
Книга.Windows(1).Visible = 1; //без строчки ниже при использовании метода SaveAs
//документ создается c закрытым листом (в данном случае лист 1)
Лист.Rows("15:15").Insert(1); //добавить строку 15
Лист.Rows(Строка(17) + ":" + Строка(17)).Delete(1); //удалить строку 17
Попытка
Книга.SaveAs("D:\111.xls",56); //(,56)сохраняется с параметром XlExcel8 (Microsoft Office 97-2003)
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
КонецПопытки;
1)В создание пригодилась информация с http://forum.infostart.ru/forum24/topic40980/
2)Часто используемые методы для чтения/установки значений в Excel.
| Эксель = СоздатьОбъект("Excel.Application");
|
Получение доступа к приложению Excel. |
|
Эксель.Visible = Видимость;
|
0 - Excel не виден, 1 - виден. |
|
Книга = Эксель.WorkBooks.Add();
|
Создание новой книги (файла) Excel. |
|
Книга.SaveAs(ИмяФайла);
|
Сохранение книги Excel. |
|
Лист = Книга.WorkSheets.Add();
|
Добавление нового листа в книгу. |
|
Книга = Эксель.WorkBooks.Open(ИмяФайла);
|
Открытие существующей книги (файла) Excel. |
|
Лист = Книга.WorkSheets(НомерЛиста);
|
Установка листа в качестве рабочего с номером НомерЛиста. |
|
Лист.Name = ИмяЛиста;
|
Задание рабочему листу имени ИмяЛиста |
|
Лист.PageSetup.Zoom = Масштаб;
|
Задание параметра страницы "Масштаб" (от 10 до 400). |
|
Лист.PageSetup.Orientation = Ориентация;
|
Ориентация: 1 - книжная, 2 - альбомная. |
|
Лист.PageSetup.LeftMargin = Эксель.CentimetersToPoints(Сантиметры);
|
Задание левой границы (в сантиметрах). |
|
Лист.PageSetup.TopMargin = Эксель.CentimetersToPoints(Сантиметры);
|
Задание верхней границы (в сантиметрах). |
|
Лист.PageSetup.RightMargin = Эксель.CentimetersToPoints(Сантиметры);
|
Задание правой границы (в сантиметрах). |
|
Лист.PageSetup.BottomMargin = Эксель.CentimetersToPoints(Сантиметры);
|
Задание нижней границы (в сантиметрах). |
|
Лист.Columns(НомерКолонки).ColumnWidth = Ширина;
|
Задание ширины колонке. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Value = Значение;
|
Ввод данных в ячейку. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Font.Name = ИмяШрифта;
|
Установка шрифта в ячейке. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Font.Size = РазмерШрифта;
|
Установка размера шрифта в ячейке. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Font.Bold = Жирный;
|
1 - жирный шрифт, 0 - нормальный. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Font.Italic = Курсив;
|
1 - наклонный шрифт, 0 - нормальный. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Font.Underline = Подчеркнутый;
|
2 - подчеркнутый, 1 - нет. |
|
Лист.Cells(НомерСтроки, НомерКолонки).NumberFormat = Формат;
|
Установка формата данных ячейки. |
|
Лист.Cells(НомерСтроки,НомерКолонки).Borders.Linestyle = ТипЛинии;
|
Установка рамок ячейки. 1 - тонкая сплошная. |
