Блог: Tymbys
Страницы
Главная страница
Связь
пятница, 18 марта 2011 г.
1С: Экспорт справочника в Xls
В общем понадобилось экспортировать из справочника некоторые данные в Microsoft Excel, для удобства пользователя. Собственно получился вот такая процедура.
Процедура ЭкспортXls(Справочник,Фаил) //Сотрудники СпрСотр = СоздатьОбъект("Справочник."+Справочник); Попытка Эксель = СоздатьОбъект("Excel.Application"); Исключение Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); Возврат; КонецПопытки; Книга = Эксель.WorkBooks.Add(); Лист = Книга.WorkSheets(1); Номер = 3; Лист.Columns("A:A").Select(); Область=Лист.Range(Лист.Cells(Номер,1), Лист.Cells(Номер,1).End(-4121)); Область.NumberFormat = "@"; Лист.Columns("B:B").Select(); Область=Лист.Range(Лист.Cells(Номер,2), Лист.Cells(Номер,2).End(-4121)); Область.NumberFormat = "@"; Лист.Columns("C:C").Select(); Область=Лист.Range(Лист.Cells(Номер,3), Лист.Cells(Номер,3).End(-4121)); Область.NumberFormat = "0"; Лист.Cells(1,1).Font.Bold = 1; Лист.Columns(1).ColumnWidth = 30; Лист.Cells(1,2).Font.Bold = 1; Лист.Columns(2).ColumnWidth = 20; Лист.Cells(1,3).Font.Bold = 1; Лист.Columns(3).ColumnWidth = 10; Лист.Cells(1, 1).Value ="Наименование"; Лист.Cells(1, 2).Value ="Должность"; Лист.Cells(1, 3).Value ="Оклад"; СпрСотр.ВыбратьЭлементы(); Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл Лист.Cells(Номер, 1).Value =Строка(СпрСотр.Наименование); Лист.Cells(Номер, 2).Value =Строка(СпрСотр.Должность); Лист.Cells(Номер, 3).Value =Число(СпрСотр.Оклад); Номер=Номер+1; КонецЦикла; Попытка Книга.SaveAs(Фаил); Исключение Сообщить(ОписаниеОшибки()+" Файл не сохранен!"); Возврат; КонецПопытки; Эксель.Quit(); КонецПроцедуры
Комментариев нет:
Отправить комментарий
Следующее
Предыдущее
Главная страница
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий