Цитата(Vofka @ 17.08.11, 16:38)
В 77 не помню точно, но по-моему вызываемая функция должна быть экспортная функция в глобальном модуле. Ну и потом просто Объект1С.Функция(1, 2, 3)
Sub Command1_Click ()
Dim v7 As Object
Dim Price As Object
Set v7 = CreateObject("V77.Application")
result = v7.Initialize(v7.RMTrade, "/DC:\V7\DB /M", "")
Set Price = v7.EvalExpr("ОтдатьСправочникТоваров()")
Price.New
Price.Code = "112233"
Price.Description = "Test string"
Price.Write;
BoolResult = v7.ExecuteBatch("ПроцедураРегл1();ПроцедураРегл2()")
End Sub
Функция должна быть в глобальном модуле с Экспорт и параметры должны передаваться ВСЕ, даже если есть значения по умолчанию.
Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
ЗиУП