Обертка функций Excel на русском. Ускорение процесса разработки.

В один прекрасный момент, при разработке отчета с выводом в Excel, меня достало переключаться между языками для вызова методов Excel.

Теряется куча времени.

Обернул их в функции 1С написанные на русском языке.

Пример:

// Описание:
//  Возвращает структуру со ссылкой на ячейку
//
// Параметры:
//  Лист - лист книги Excel куда нужно вставить значение
//  Строка - номер строки листа
//  Колонка - номер колонки листа
//
// Возвращаемое значение:
//   Структура:
//  * Ячейка - ссылка на ячейку, куда было помещено значение, для дальнейшего использования
//      * Строка - строка ячейки
//  * Колонка - колонка ячейки.
//
Функция Екс_ПолучитьЯчейку(Лист,Строка,Колонка)
текЯчейка = новый Структура;
текЯчейка.Вставить("Ячейка",Лист.Cells(Строка,Колонка));
текЯчейка.Вставить("Строка",Строка);
текЯчейка.Вставить("Колонка",Колонка);
Возврат текЯчейка;
КонецФункции

Написал в основном только те функции и методы, которые мне были необходимы. После этого разработка пошла намного быстрее. Не нужно отвлекаться на переключение языка и вспоминать правильное написание той или иной функции Excel.

Были использованы как свои разработки, так и разработки и описания с сайта. Просматривал много информации, поэтому вспомнить все источники не смогу (прошу прощения 🙂 )

один из многих:

шпаргалка по Excel

1. Код функций ниже:

#Область ПроцедурыЕксель

Процедура Екс_ВставитьМакросВКнигу(КнигаЕксель, ТекстМакроса)
//Пишем макросы в книгу
VBComponents = КнигаЕксель.VBProject.VBComponents;
Кол = VBComponents.Count();
Модуль = VBComponents.Add(1);
Модуль.CodeModule.InsertLines(1,ТекстМакроса);
КонецПроцедуры

Процедура Екс_ВставитьКнопкиУправленияНаЛистExcel(Лист, Заголовок, Макрос, Верхний_УголХ, ВерхнийУголУ, Ширина, Высота, РазмерШрифта, ЦветНадписи)
//Создание Кнопки
Кнопка1=Лист.Buttons.Add(Верхний_УголХ, ВерхнийУголУ, Ширина, Высота);
//первые 2 цифарки (420.5, 12.5, , ) это координаты точки
//вторые 2 цифарки размеры кнопки длина ширина (, , 89.5, 17.5)
Кнопка1.Caption=Заголовок;
Кнопка1.OnAction = Макрос;
Кнопка1.Font.Size = РазмерШрифта;
Кнопка1.Font.Color = ЦветНадписи;
Кнопка1.AutoSize = 1;
КонецПроцедуры

//
// Начертание - 0 - нормальный, 1 - полужирный, 2 - наклонный, 3 - полужирнй/наклонный
Процедура Екс_УстановитьФорматЯчейки(Ячейка, Шрифт = Неопределено,Размер = Неопределено,Начертание = Неопределено,Цвет = Неопределено,Перенос = Ложь,Формат = "@", Рамка = 0)
Если не Шрифт = Неопределено тогда
Ячейка.Font.Name = Шрифт;
КонецЕсли;
Если не Размер = Неопределено тогда
Ячейка.Font.Size = Размер;
КонецЕсли;
Если не Начертание = Неопределено тогда
Если Начертание = 0 тогда
Ячейка.Font.Bold = 0;
Ячейка.Font.Italic = 0;
ИначеЕсли Начертание = 1 тогда
Ячейка.Font.Bold = 1;
Ячейка.Font.Italic = 0;
ИначеЕсли Начертание = 2 тогда
Ячейка.Font.Bold = 0;
Ячейка.Font.Italic = 1;
ИначеЕсли Начертание = 3 тогда
Ячейка.Font.Bold = 1;
Ячейка.Font.Italic = 1;
КонецЕсли;
КонецЕсли;
Если не Цвет = Неопределено тогда
Ячейка.Font.Color = Цвет;
КонецЕсли;
Если не Перенос = Неопределено тогда
Ячейка.WrapText = Перенос;
КонецЕсли;


КонецПроцедуры

Функция Екс_ПолучитьЦветExcelRGB(R,G,B)
Возврат B*256*256 + G * 256 + R;
КонецФункции

// Описание:
//  Вставляет значение в указанный лист и ячейку
//  можно вставить текстовое значение, число, гиперссылку, формулу
//
// Параметры:
//  Лист - лист книги Excel куда нужно вставить значение
//  Строка - номер строки листа
//  Колонка - номер колонки листа
//  Значение - значение помещаемое в ячейку листа (строка, колонка)
//  ТипЗначения - Строка - может принимать следующие значения:
//  * "Текст"
//  * "Ссылка"
//  * "Число"
//  * "Формула"
//  ЛистНазначения - лист книги Excel куда будет вести гиперссылка
//
// Возвращаемое значение:
//   Структура:
//  * Ячейка - ссылка на ячейку, куда было помещено значение, для дальнейшего использования
//      * Строка - строка ячейки
//  * Колонка - колонка ячейки.
//
Функция Екс_ВставитьВЯчейку(Лист,Строка,Колонка,Значение, ТипЗначения = "Текст", ЛистНазначения = Неопределено)

текЯчейка = новый Структура;
текЯчейка.Вставить("Ячейка",Лист.Cells(Строка,Колонка));
текЯчейка.Вставить("Строка",Строка);
текЯчейка.Вставить("Колонка",Колонка);

Если ТипЗначения = "Текст" тогда //по умолчанию текст
текЯчейка.Ячейка.Value = Значение;
ИначеЕсли ТипЗначения = "Ссылка" и не ЛистНазначения = Неопределено тогда
//тип ссылка и есть лист назначения
Лист.Hyperlinks.Add(текЯчейка.Ячейка,,"'"+ЛистНазначения.name+"'!R1C1",,Значение);

ИначеЕсли ТипЗначения = "Число" тогда
//
ИначеЕсли ТипЗначения = "Формула" тогда
//
КонецЕсли;
Возврат текЯчейка;
КонецФункции //ВставитьВЯчейку()

// Описание:
//  Возвращает структуру со ссылкой на ячейку
//
// Параметры:
//  Лист - лист книги Excel куда нужно вставить значение
//  Строка - номер строки листа
//  Колонка - номер колонки листа
//
// Возвращаемое значение:
//   Структура:
//  * Ячейка - ссылка на ячейку, куда было помещено значение, для дальнейшего использования
//      * Строка - строка ячейки
//  * Колонка - колонка ячейки.
//
Функция Екс_ПолучитьЯчейку(Лист,Строка,Колонка)
текЯчейка = новый Структура;
текЯчейка.Вставить("Ячейка",Лист.Cells(Строка,Колонка));
текЯчейка.Вставить("Строка",Строка);
текЯчейка.Вставить("Колонка",Колонка);
Возврат текЯчейка;
КонецФункции

// Объединяет указанную Ячеками область на Листе Excel
Процедура Екс_ОбъединитьЯчейки(Лист,Строка1,Колонка1,Строка2,Колонка2)
Лист.Range(Лист.Cells(Строка1,Колонка1),Лист.Cells(Строка2,Колонка2)).Merge();
КонецПроцедуры

Функция Екс_ПолучитьЛист(КнигаExcel, ИмяНомерЛиста)
Возврат КнигаExcel.WorkSheets(ИмяНомерЛиста);
КонецФункции

Функция ЕксельПолучитьКнигу(ОбъектЕксель, ИмяФайлаЕксель)
Возврат ОбъектЕксель.Workbooks.Open(ИмяФайлаЕксель);
КонецФункции

Функция ЕксельСоздатьОбъект()
Возврат Новый COMОбъект("Excel.Application");
КонецФункции

Процедура Екс_ЗакрытьКнигу(Книга)
Попытка
Книга.Close();
Исключение
КонецПопытки;
КонецПроцедуры

Процедура Екс_ЗакрытьЕксель(ОбъектЕксель)
Попытка
ОбъектЕксель.Quit();
Исключение
КонецПопытки;
КонецПроцедуры

Функция Екс_КоличествоЛистовВКниге(КнигаExcel)
Возврат КнигаExcel.Worksheets.Count;
КонецФункции

Функция ЕксельДобавитьЛистВКнигу(КнигаExcel,ТекущийЛист,ИмяНовогоЛиста)
НовыйЛист = КнигаExcel.WorkSheets.Add(,ТекущийЛист);
НовыйЛист.name = ИмяНовогоЛиста;
Возврат НовыйЛист;
КонецФункции

Процедура Екс_УстановитьВысотуСтроки(Ячейка, ВысотаСтроки)
Ячейка.RowHeight = ВысотаСтроки;
КонецПроцедуры

Функция Екс_ПолучитьИмяЛистаПоНомеру(Книга, НомерЛиста)
Возврат Книга.WorkSheets(НомерЛиста).name;
КонецФункции

Функция Екс_ПолучитьНомерЛистаПоИмени(Книга, ИмяЛиста)
Возврат Книга.WorkSheets(ИмяЛиста).Index;
КонецФункции

Функция Екс_ПоследняяСтрокаВЛисте(Лист)
Возврат Лист.UsedRange.Rows.Count;
КонецФункции

Процедура Екс_ЗафиксироватьОбласть(ОбъектЕксель,Лист,Строка = Неопределено, Колонка = Неопределено)
Лист.Activate();
Если не Строка = Неопределено тогда
ОбъектЕксель.ActiveWindow.SplitRow = Строка;

КонецЕсли;
Если не Колонка = Неопределено тогда
ОбъектЕксель.ActiveWindow.SplitColumn = Колонка;
КонецЕсли;
ОбъектЕксель.ActiveWindow.FreezePanes = 1;
КонецПроцедуры

Функция Екс_ЯчейкаОбъединена(Ячейка)
Возврат Ячейка.MergeCells;
КонецФункции

Функция Екс_ПолучитьЗначениеВЯчейке(Лист,Строка,Колонка)
Возврат Лист.Cells(Строка,Колонка).Value;
КонецФункции

Процедура Екс_УстановитьСнятьЗащитуСЯчейки(Ячейка,Защита = 0)
Попытка
Ячейка.Locked = Защита;
Исключение
КонецПопытки;
КонецПроцедуры

#КонецОбласти

2. Пример использования:

Ексель = ЕксельСоздатьОбъект();
КнигаЕксель = ЕксельПолучитьКнигу(Ексель,ИмяФайла);
ЛистЕксель = Екс_ПолучитьЛист(КнигаЕксель,1);
ЛистНавигации = Екс_ПолучитьЛист(Книга,"Навигация");

текСтрока = 5;
текКолонка = 10;
ЗначЯчейки = Екс_ПолучитьЗначениеВЯчейке(ЛистЕксель,текСтрока,текКолонка);

текЯчейка = Екс_ВставитьВЯчейку(ЛистЕксель,текСтрока,1,"Вариант 1.");
//В текЯчейка вернулась структура ТекЯчейка.Ячейка, ТекЯчейка.Строка, ТекЯчейка.Колонка
Екс_УстановитьФорматЯчейки(текЯчейка.Ячейка,,15,1,Красный);
Екс_УстановитьВысотуСтроки(текЯчейка.Ячейка,16);
Екс_ОбъединитьЯчейки(ЛистЕксель,текЯчейка.Строка,текЯчейка.Колонка,текЯчейка.Строка,текЯчейка.Колонка+5);