New SoapClient30 ------ "Automation error" - VB
Формулировка задачи:
всё это делается в 2000 экселе в VBA.
при вызове этой комманды (Set sc_Excel = New SoapClient30) происходит эта ошибка (Automation error). SOAP ToolKit 3.0 установлен, ума не приложу, в чём дело???
при вызове этой комманды (Set sc_Excel = New SoapClient30) происходит эта ошибка (Automation error). SOAP ToolKit 3.0 установлен, ума не приложу, в чём дело???
Решение задачи: «New SoapClient30 ------ "Automation error"»
textual
Листинг программы
<font color="blue">Dim</font> soapclient1, soapGUIDES, soapPERSONS <font color="blue">As</font> SoapClient30 <font color="blue">Dim</font> languages <font color="blue">As</font> MSXML2.IXMLDOMSelection <font color="blue">Dim</font> User <font color="blue">As</font> <font color="blue">String</font>, Password <font color="blue">As</font> <font color="blue">String</font>, GuidOfSession <font color="blue">As</font> <font color="blue">String</font> User = <font color="teal">"ляляля"</font> Password = <font color="teal">"тататата"</font> <font color="#00AA00">'Веб-сервис для подключения сессии</font> <font color="blue">Set</font> soapclient1 = CreateObject(<font color="teal">"MSSOAP.soapclient30"</font>) soapclient1.ClientProperty(<font color="teal">"ServerHTTPRequest"</font>) = True <font color="blue">Call</font> soapclient1.mssoapinit(<font color="teal">"http://10.44.1.1/EDBOCommon/EDBOCommon.asmx?WSDL"</font>) GuidOfSession = soapclient1.Login(User, Password, <font color="darkblue"><b>1</b></font>) <font color="#00AA00">' идентификатор сессии</font> MsgBox (<font color="teal">"id="</font> & GuidOfSession) <font color="#00AA00">'ТУТ ВСЕ РАБОТАЕТ ОТЛИЧНО, ИД СЕССИИ ПОЛУЧАЮ (метод описан как возвращающий String)</font> <font color="#00AA00">'Веб-сервис общих справочников</font> <font color="blue">Set</font> soapGUIDES = CreateObject(<font color="teal">"MSSOAP.SoapClient30"</font>) soapGUIDES.ClientProperty(<font color="teal">"ServerHTTPRequest"</font>) = True <font color="blue">Call</font> soapGUIDES.mssoapinit(<font color="teal">"http://10.44.1.1/EDBOGuides/EDBOGuides.asmx?WSDL"</font>) <font color="blue">SET</font> languages = soapGUIDES.LanguagesGet(GuidOfSession) ' НА ЭТОЙ СТРОКЕ СТОПОРИТСЯ С ОШИБКОЙ <font color="blue">Object</font> required (метод описан, как возвращающий Array)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д