Hello world!
Мне нужно из внешнего приложения(EXCEL) запустить запрос 1С.
Для этого в книге EXCEL подключил соответствующую библиотеку:
1CV83 COM Connector Type Library
А далее составил макрос, в котором идет обращение к справочнику Контрагенты.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub test()
Dim v8 As Object
Dim v8con As New V83.COMConnector
Set v8 = v8con.Connect("Srvr=ServerName;Ref=BaseName;Usr =""UserName"";Pwd=""Password""")
Dim q As String
q = "ВЫБРАТЬ ПЕРВЫЕ 100 Контрагенты.Наименование, Контрагенты.ссылка ИЗ Справочник.Контрагенты КАК Контрагенты"
Dim Query As Object
Set Query = v8.NewObject("Query")
Query.Текст = q
Dim Res As Object
Set Res = Query.Execute().Choose()
Dim Count As Integer
Count = 0
While Res.Next()
Count = Count + 1
Wend
End Sub
Но этот запрос очень простой.
А мне нужно научиться использовать такие 1С-функции как:
функцииКонецДняВидГраницыДата
Например такой макрос
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub test2()
Dim v8 As Object
Dim v8con As New V83.COMConnector
Set v8 = v8con.Connect("Srvr=ServerName;Ref=BaseName;Usr =""UserName"";Pwd=""Password""")
Dim parDate As String
parDate = "20181015"
parEdDate = v8.Дата(parDate)
End Sub
отрабатывает с ошибкой, в которой говорится, что у v8 нет такого метода.
Подскажите, как победить данную проблему?
