search

dliliya / 1c

0 stars 0 forks source link

Работа с Excel #1

Open dliliya opened 6 years ago

dliliya commented 6 years ago

1. Подключение к Excel

Попытка Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить(ОписаниеОшибки() + "Возможно программа Exсel не установлена на данном компьютере!"); Возврат Ложь; КонецПопытки;

Книга = Excel.WorkBooks.Add(); //Создание книги Книга = Excel.WorkBooks.Open(ПутьКФайлу); //Открытие существующей книги Лист = WorkBook.WorkSheets(НомерЛиста); //Выбор рабочего листа по номеру Лист = WorkBook.WorkSheets(ИмяЛиста); //Выбор рабочего листа по имени

//Сохранение книги Попытка Книга.SaveAs(ПутьКФайлу); Книга.Close(); Excel.Quit();
Исключение Книга.Close(); Excel.Quit(); КонецПопытки;

2. Запись значения в ячейку

ТекущийЛист.Cells(i, j).Value = "2";

3. Шрифт и размер шрифта

Excel.Columns("A:H").Select(); Лист.Cells.Font.Size = 12;
Лист.Cells.Font.Name = "Calibri";

4. Установка фильтра

Лист.Cells.AutoFilter();

5. Горизонтальное выравнивание ячейки

ТекущийЛист.Cells(i, j).HorizontalAlignment = -4130;

image

6. Вертикальное выравнивание ячейки

ТекущийЛист.Cells(i, j).VerticalAlignment = -4130;

image

7. Установка свойства ячейки "переносить по словам"

ТекущийЛист.Cells(i, j).WrapText = True;

8. Отключение/включение режима показа предупреждений

ExcelApp.DisplayAlerts = False; // отключение ExcelApp.DisplayAlerts = True; // включение

9. Формулы

ТекущийЛист.Cells(i, j).Formula = "SUM(A1:A10)"; Для формул с русскими названиями нужно использовать не Formula, а FormulaLocal. Таким образом правильными вариантами написания формул будут:

ТекущийЛист.Cells(i, j).FormulaLocal = "Сумм(A1:A10)";

10. Таблица цветов с индексами image

image

Объединение яйчеек Лист.Range("E1:F1").MergeCells = Истина;

Цвет фона Лист.Cells(2,3).Interior.ColorIndex = 42;

ГиперСсылки Лист.Cells(СтрокаЛиста, 2).Hyperlinks.Add(Лист.Cells(СтрокаЛиста, 2), Выборка.МДО_URLТовара,,"Ссылка на товар с сайта www.___.ru",Выборка.Артикул );

Закрепление областей Эксель.Application.ActiveWindow.SplitRow = 4; Эксель.Application.ActiveWindow.FreezePanes = 1;

Ширина колонки Лист.Columns(7).ColumnWidth = "10";

dliliya commented 6 years ago

Работа с Excel