Из 1С записать формулу в ячейке MS EXCEL

Описание
Подробнее

Описание

Часто слышу этот вопрос: «Как сделать, как написать?!» Объяснить сразу мне трудно, поэтому давайте «на пальцах»

Свежий простой пример — рассмотрим, как указать для ячейки формулу:

Ексель.Cells(1,3).Formula= «=СЦЕПИТЬ(E1;C7)»;

Первое, на что хочу обратить внимание — те функции, которые Вы видите визуально в ячейке MS EXCEL для 1С «слегка не знакомы», ей лучше озвучить имя функции на VBA. А откуда Вы узнаете, как эта функция на VBA называется??? Я Вам расскажу, немного терпения

Открываем новую книгу MS EXCEL
Идем в меню Сервис — Макрос — Начать запись — Ок (появится маленькое окошко с квадратной кнопкой — его не кое случае не закрывать)
Кликаем ячейку «С1» и пишем в ней формулу =СЦЕПИТЬ(E1;C7)
После этого нажимаем на квадратную кнопочку (Мы только что с Вами записали макрос на языке VBA)

Посмотрим что получилось. Идем в меню Сервис — Макрос — Макросы — (там будет в новой книге по умолчанию Макрос1) — выбираем его и нажимаем кнопку «Войти». Поздравляю — мы попали во встроенный редактор VBA (аналог конфигуратора 1С). И что мы видим:

Sub Макрос1()
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"
    Range("C2").Select
End Sub

Теоретически нам отсюда нужно только:

Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"

это и будет для 1С =

Cells(1,3).Formula= «=СЦЕПИТЬ(E1;C7)»;» «

проверим напишем код на любимом 1С

Процедура Сформировать()
Перем Кат,Шаб;

Ехсел=СоздатьОбъект("Excel.Application");
Книга=Ехсел.Workbooks;
Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда
     Книга.Open(Шаб+Кат);  
     Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";  
     Книга.Close();
     Ехсел="";  
КонецЕсли;
КонецПроцедуры

Все работает!

Немного подумав, Вы поймете, что:

Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";

можно заменить на

Ехсел.Cells(1, 3).FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";

и результат не изменится, а возможностей прибавится.

В MS EXCEL только амлет нельзя пожарить — возможности его одурманивают.

Я рад , что кому-то эта статья пригодилась. Спасибо Вам всем.

И чтобы закрепить материал, напишу задачу (недавно она здесь на портале была озвучена).

Многие делают отчеты и сохраняют в EXCEL… так вот задача стояла в следующем, чтобы при открытии файла у таблицы стоял фильтр с заданными параметрами (пример таблицы на рис.1, а нужно получить (например все товары у которых количество равно 11) рис.2.)

Попробуйте решить сами на языке 1С.

ОТВЕТ:

Ехсел.Range(«C5:D5»).AutoFilter (); //создаем автофильтр
Ехсел.Range(«C5:D5″).AutoFilter (2,»11»); //указаваем столбец и значение фильтр

В связи с большим количеством комментариев у данной публикации, решил выложить то, что, по моему мнению, не должно «утонуть» в потоке информации:

Пост (44) Рассказывает нам где находится файл FUNCS.XLS — который содержит полезную информацию по формулам EXCEL — прислал gaglo

Пост (55) Подарил на ссылку на замечательную Функция по возврату констант EXCEL — прислал JohnyDeath

Пост (59) Добавил ссылку на русскоязычный сайт посвященный EXCEL — прислал an77

Пост (61) Еще одна ссылка на сайт, посвященный работе с макросами

Каталог решений - Из 1С записать формулу в ячейке MS EXCEL