Как из 1С написать формулу в Excel

Объяснить мне сразу трудно — поэтому давайте "на пальцах"
Свежий простой пример :
вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "

первое на что хочу обратить внимание
те функции которые Вы видите визуально в ячейке MS EXCEL для 1С "слегка не знакомы", ей лучше озвучить имя функции на VBA

откуда Вы знаете как это функция на VBA называется ???

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

Поздравляю — мы попали во встроенный редактор VBA (аналог конфигурартора 1С)

и что мы видим

Код

Sub Макрос1()

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

End Sub

теоритически нам нужно только

Код

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

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

Код 1C v 7.x

1С (Код)

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

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

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

Код 1C v 7.x

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12

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

все работает.

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

Код 1C v 7.x

1С (Код)

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

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

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

Код 1C v 7.x

1С (Код)

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

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

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

Tatitutu

About the Author

sadmin

Administrator

View All Posts