Вобщем то нужно перекинуть данные из Excel в 1С, если быть более конкретным, то в ТиС 9.2. Открыл красно-желтую книжку и срисовал с нее. (Нужно перекинуть данные в справочник "номенклатура"). Проблема с подчиненными справочниками. Помимо названия нужно перекинуть цену (Подчиненный справочник "Цены"), и в нем проставить ТипЦены (подчинен спр "Цены")

Sub Test()
Dim trde As Object
Dim Товар As Object
Set trade = CreateObject("V77.Application")
result = trade.Initialize(trade.RMTrade, "/DC:\Работа\DB /M", "")
Set Товар = trade.EvalExpr("CreateObject(""Справочник.Номенклатура"")")
Set Цена1 = trade.EvalExpr("CreateObject(""Справочник.Цены"")")
Товар.НоваяГруппа
Товар.наименование = "Папка"
Товар.Записать
Товар.ИспользоватьРодителя Товар.ТекущийЭлемент
N = 100
For Count = 1 To N
Товар.Новый
Товар.наименование = Application.Cells(Count, 6).Value
Товар.ПолнНаименование = Application.Cells(Count, 6).Value
Товар.Записать
Цена1.ИспользоватьВладельца Товар.ТекущийЭлемент
Цена1.Новый
Цена1.Цена = Application.Cells(Count, 7).Value
Цена1.Записать
Next Count
End Sub