Справочные материалы по 1С
Работа с Automation Client/Server (OLE) в 1С 8.x
Как из одной базы 1С:Предприятие 8.0 интерактивно заполнить документ в другой базе, используя Automation Client/Server (OLE)?
V8 = Новый COMОбъект("V8.Application");
Попытка
Открытие = V8.Connect("File=""" + Путь + """;Usr=""Usr1"";");
Исключение
Предупреждение("База данных не открыта!!!");
Возврат;
КонецПопытки;
МенеджерДокумента = V8.Документы.РеализацияТоваров;
Документ = МенеджерДокумента.СоздатьДокумент();
ФормаДокумента = Документ.ПолучитьФорму();
ФормаДокумента.ОткрытьМодально();
Как из таблицы Excel загрузить список номенклатуры в 1С:Предприятие с возможностью редактирования?
Sub load()
Dim trade As Object
Dim СправочникНоменклатуры As Object
Dim ГруппаНоменклатуры As Object
Dim Элемент As Object
Dim Форма As Object
Set trade = CreateObject("V8.Application") trade.Connect("File=""C:\DemoTrd4"";Usr=""Федоров (администратор)"";")
Set СправочникНоменклатуры = trade.Справочники.Номенклатура
Set ГруппаНоменклатуры = СправочникНоменклатуры.СоздатьГруппу()
ГруппаНоменклатуры.Наименование = "***** Экспорт из Excel ******"
ГруппаНоменклатуры.Записать
N = 4 'Количество загружаемых элементов справочника
For Count = 2 To 5
Set Элемент = СправочникНоменклатуры.СоздатьЭлемент()
Элемент.Код = Application.Cells(Count, 1).Value
Элемент.Артикул = Application.Cells(Count, 2).Value
Элемент.Наименование = Application.Cells(Count, 3).Value
Элемент.НаименованиеПолное = Application.Cells(Count, 4).Value
Элемент.Родитель = ГруппаНоменклатуры.Ссылка
Set Форма = Элемент.ПолучитьФорму()
Форма.ОткрытьМодально
Next
Count
End Sub
