подключение к API из VBA

ЛЭРС УЧЁТ REST, Framework, интеграция с другими системами
1

Здравствуйте. Подскажите, есть ли способ передать данные из ЛЭРС через API в VBA с последующей записью в таблицу Excel? Что для этого лучше использовать Web Api или Framework?

2

Вызов .net библиотек из VBA, насколько мне известно, невозможен. Поэтому используйте Web сервис.

3

Пока не разобрался как подключится из vba к web-сервису с поддержкой cookie. Нет ли у Вас какого-либо примера?

4

Нет, к сожалению такого примера нету. Возможно кто-то из пользователей имеет удачный опыт в этом и поделиться им с нами.

5

Поискав примеры подключения к другим программам получилось реализовать подключение к ЛЭРС, может кому-нибудь так же пригодится

Dim sEnv As String, sURL As String
    Dim xmlhtp As Object, xmlDoc As Object, b
    sURL = "http://......./api.asmx"
    Set ObjHTTP = New MSXML2.XMLHTTP
    sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
    sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""
    xmlns:xsd=""http://www.w3.org/2001/XMLSchema""
    xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
    sEnv = sEnv & "<soap:Body>"
    sEnv = sEnv & "<userName xmlns=""http://www.lers.ru/website/api"">.......</userName>"
    sEnv = sEnv & "<password xmlns=""http://www.lers.ru/website/api"">.......</password>"
    sEnv = sEnv & "</soap:Body>"
    sEnv = sEnv & "</soap:Envelope>"
    ObjHTTP.Open "Post", sURL, False
    ObjHTTP.setRequestHeader "Content-Type", "text/xml"
    ObjHTTP.setRequestHeader "soapAction", "http://www.lers.ru/website/api/Login"
    ObjHTTP.send (sEnv);
    MsgBox ObjHTTP.responseText