Форумчане, доброе утро.
Немного о ситуации. Решил помочь коллегам, создал файлик на VBA, который подключается к 14 различным 1с (или базам 1с, тут я нуб, уж простите=) ) и выполняет отчеты\запросы (все базы доступны по локалке) (переносит из 1с результ. отчетов\запросов и соотв. последующая обработка). Проблем не возникло, коллеги были счастливы. Но прошло какое-то время, и меня спросили, возможно ли допилить файлик, что бы он подключался через удаленный рабочий стол к 1с в РК, и делал тоже самое? Танцы с бубном (и поиск в гугле) дали минимум инфы, исп. которую на данный момент не удалось. По этой причине пишу собственно Вам=)
Код примерно следующего вида(упрощенный вариант):
Немного о ситуации. Решил помочь коллегам, создал файлик на VBA, который подключается к 14 различным 1с (или базам 1с, тут я нуб, уж простите=) ) и выполняет отчеты\запросы (все базы доступны по локалке) (переносит из 1с результ. отчетов\запросов и соотв. последующая обработка). Проблем не возникло, коллеги были счастливы. Но прошло какое-то время, и меня спросили, возможно ли допилить файлик, что бы он подключался через удаленный рабочий стол к 1с в РК, и делал тоже самое? Танцы с бубном (и поиск в гугле) дали минимум инфы, исп. которую на данный момент не удалось. По этой причине пишу собственно Вам=)
Код примерно следующего вида(упрощенный вариант):
| Код |
|---|
Sub Con_1c()
Set v8 = CreateObject("V83.COMConnector")
Set База = v8.Connect("Srvr=" & Serv & ";Ref=" & Ref & "; Usr=""" & FIO & """; Pwd =""" & Pass & """ ")
Set Запрос_1 = База.NewObject("Запрос")
Запрос_1.Текст = "ТУТ НАХОДИТСЯ САМ ЗАПРОС"
Set Выполнить_запрос = Запрос_1.выполнить()
Set Выбрать_данные = Запрос_1.выполнить.Выбрать
Do While Выбрать_данные.Следующий()
Cells(x, 2) = Выбрать_данные.Счет.Код
Loop
End sub
|
Подключение к удаленке происходит через стандартный windows-кий rdp
Собственно сам вопрос, какой код необходимо добавить, что бы произвести подключение и посл обращение к удаленной 1с?
По этой ссылке нашел код, который помог открыть саму rpb, ввести логин и пароль. . Подключение проходит, но как дальше обращаться... увы=)
На тек момент, даже не уверен что задача решается именно таким способом) Возможно можно подкл как то по айпишнику например, и посл обращение уже через него выполнять? В общем жду ваших комментов и рекомендаций.
C2-C4
