Здравствуйте. Подскажите, есть ли способ передать данные из ЛЭРС через API в VBA с последующей записью в таблицу Excel? Что для этого лучше использовать Web Api или Framework?
Пока не разобрался как подключится из vba к web-сервису с поддержкой cookie. Нет ли у Вас какого-либо примера?
Нет, к сожалению такого примера нету. Возможно кто-то из пользователей имеет удачный опыт в этом и поделиться им с нами.
Поискав примеры подключения к другим программам получилось реализовать подключение к ЛЭРС, может кому-нибудь так же пригодится
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