Web Services from Excel

Question

Hi,
i want to use Excel (office 2003) with the web services toolkit from Microsoft (2.01) to call Web services from SAP (ABAP 7.0).
In the 6.40 version of ABAP i was able to call a web service also with some complex data types (internal tables) from excel. Finally the trick was to avoid empty input complex types.
Now trying this with the new version seems impossible. The system always respond "deserialisation failed". Tracking the problem shows a nice SOAP request in the SAP system, however, somehow the "deserialisation" error occurs here.
Is there any hint on how to deal with this kind of error ?
Thanks for any advice.
Marcus

Answer 1

Hi,
first here is the soap request from the SAP trace in SICF: ( a response is not visible due to the deserialisation error)
<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
- <SOAP-ENV:Envelope xmlns:SOAPSDK1="http://www.w3.org/2001/XMLSchema" xmlns:SOAPSDK2="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAPSDK3="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
- <SOAP-ENV:Body>
- <SOAPSDK4:ZBpcontactCreatefromdata xmlns:SOAPSDK4="urn:sap-com:document:sap:soap:functions:mc-style">
- <SOAPSDK4:Businesspartner SOAPSDK3:arrayType="SOAPSDK4:VbkaVbpa2kom[3]" SOAPSDK3:offset="[0]" SOAPSDK2:type="SOAPSDK3:Array">
- <item>
  <Refobjecttype SOAPSDK2:nil="true" />
  <Refobjectkey SOAPSDK2:nil="true" />
  <DocNumber>1</DocNumber>
  <ItmNumber>1</ItmNumber>
  <CountParvw>1</CountParvw>
  <PartnRole>AG</PartnRole>
  <PartnRoleOld>AG</PartnRoleOld>
  <PartnId>0000002000</PartnId>
  <PartnIdOld>0000002000</PartnIdOld>
  <AddrNo SOAPSDK2:nil="true" />
  <PersNo SOAPSDK2:nil="true" />
  <Addrtype SOAPSDK2:nil="true" />
  <AddrOrigin SOAPSDK2:nil="true" />
  <UnloadPt SOAPSDK2:nil="true" />
  <CalendarUpdate SOAPSDK2:nil="true" />
  <AddrLink SOAPSDK2:nil="true" />
  </item>
- <item>
  <Refobjecttype SOAPSDK2:nil="true" />
  <Refobjectkey SOAPSDK2:nil="true" />
  <DocNumber>1</DocNumber>
  <ItmNumber>1</ItmNumber>
  <CountParvw>1</CountParvw>
  <PartnRole>AP</PartnRole>
  <PartnRoleOld>AP</PartnRoleOld>
  <PartnId>0000000005</PartnId>
  <PartnIdOld>0000000005</PartnIdOld>
  <AddrNo SOAPSDK2:nil="true" />
  <PersNo SOAPSDK2:nil="true" />
  <Addrtype SOAPSDK2:nil="true" />
  <AddrOrigin SOAPSDK2:nil="true" />
  <UnloadPt SOAPSDK2:nil="true" />
  <CalendarUpdate SOAPSDK2:nil="true" />
  <AddrLink SOAPSDK2:nil="true" />
  </item>
- <item>
  <Refobjecttype SOAPSDK2:nil="true" />
  <Refobjectkey SOAPSDK2:nil="true" />
  <DocNumber>1</DocNumber>
  <ItmNumber>1</ItmNumber>
  <CountParvw>1</CountParvw>
  <PartnRole>ZM</PartnRole>
  <PartnRoleOld>ZM</PartnRoleOld>
  <PartnId>0000001708</PartnId>
  <PartnIdOld>0000001708</PartnIdOld>
  <AddrNo SOAPSDK2:nil="true" />
  <PersNo SOAPSDK2:nil="true" />
  <Addrtype SOAPSDK2:nil="true" />
  <AddrOrigin SOAPSDK2:nil="true" />
  <UnloadPt SOAPSDK2:nil="true" />
  <CalendarUpdate SOAPSDK2:nil="true" />
  <AddrLink SOAPSDK2:nil="true" />
  </item>
  </SOAPSDK4:Businesspartner>
- <SOAPSDK4:Generaldata SOAPSDK3:arrayType="SOAPSDK4:Bus1037VbkakomCr[1]" SOAPSDK3:offset="[0]" SOAPSDK2:type="SOAPSDK3:Array">
- <item>
  <Refobjecttype SOAPSDK2:nil="true" />
  <Refobjectkey SOAPSDK2:nil="true" />
  <DocNumber>1</DocNumber>
  <Refdoctype SOAPSDK2:nil="true" />
  <Refreltype SOAPSDK2:nil="true" />
  <ActivityType>0001</ActivityType>
  <Salesorg>1000</Salesorg>
  <DistrChan>10</DistrChan>
  <Division>00</Division>
  <SalesOff>1000</SalesOff>
  <SalesGrp>100</SalesGrp>
  <FromDate>11/7/2006</FromDate>
  <ToDate>11/7/2006</ToDate>
  <FromTime>12:00:00 AM</FromTime>
  <ToTime>12:00:00 AM</ToTime>
  <Reason>003</Reason>
  <Result>005</Result>
  <ResultExplanation>005</ResultExplanation>
  <State>1</State>
  <FollowUpType SOAPSDK2:nil="true" />
  <FollowUpDate>12:00:00 AM</FollowUpDate>
  <ActivityComment>Das ist ein  Test</ActivityComment>
  <Descrpt01 SOAPSDK2:nil="true" />
  <Descrpt02 SOAPSDK2:nil="true" />
  <Descrpt03 SOAPSDK2:nil="true" />
  <Descrpt04 SOAPSDK2:nil="true" />
  <Descrpt05 SOAPSDK2:nil="true" />
  <Descrpt06 SOAPSDK2:nil="true" />
  <Descrpt07 SOAPSDK2:nil="true" />
  <Descrpt08 SOAPSDK2:nil="true" />
  <Descrpt09 SOAPSDK2:nil="true" />
  <Descrpt10 SOAPSDK2:nil="true" />
  <TxtKonse SOAPSDK2:nil="true" />
  <Direction SOAPSDK2:nil="true" />
  <PartnRole>AG</PartnRole>
  <PartnId>0000002000</PartnId>
  <ContactRole>AP</ContactRole>
  <Contact>0000000005</Contact>
  <Langu SOAPSDK2:nil="true" />
  <LanguIso SOAPSDK2:nil="true" />
  </item>
  </SOAPSDK4:Generaldata>
  <SOAPSDK4:Return SOAPSDK2:nil="true" SOAPSDK3:arrayType="SOAPSDK4:Bapiret2[0]" SOAPSDK3:offset="[0]" SOAPSDK2:type="SOAPSDK3:Array" />
- <SOAPSDK4:Sender>
  <LogSystem SOAPSDK2:nil="true" />
  </SOAPSDK4:Sender>
  <SOAPSDK4:Testrun SOAPSDK2:nil="true" />
  </SOAPSDK4:ZBpcontactCreatefromdata>
  </SOAP-ENV:Body>
  </SOAP-ENV:Envelope>
here is the VB coding in Excel:
The call of the WS is done in standard generated classes from the WS plugin in Excel:
Call contractWS.wsm_ZBpcontactCreatefromdata
Dim contractWS As New clsws_zcreatecontact2Servic
Dim ar_Businesspartner() As New struct_VbkaVbpa2kom
Dim ar_Generaldata(0) As New struct_Bus1037VbkakomCr
Dim ar_Return() As Variant
Dim obj_Sender As New struct_Sender
Dim str_Testrun As String
With ar_Generaldata(0)
.DocNumber = "1"
.ActivityType = "0001"
.Salesorg = "1000"
.DistrChan = "10"
.Division = "00"
.SalesOff = "1000"
.SalesGrp = "100"
.ActivityComment = Range("C9").Text
.FromDate = Format(Range("C8").Text, "yyyy-mm-dd")
.ToDate = Format(Range("C8").Text, "yyyy-mm-dd")
.FromTime = "00:00:00"
.ToTime = "00:00:00"
.Reason = "003"
.Result = "005"
.ResultExplanation = "005"
.State = "1"
.PartnRole = "AG"
.PartnId = "0000002000"
.ContactRole = "AP"
.Contact = "0000000005"
End With
ReDim ar_Businesspartner(2)
With ar_Businesspartner(0)
.DocNumber = "1"
.ItmNumber = "1"
.CountParvw = "1"
.PartnRole = "AG"
.PartnRoleOld = "AG"
.PartnId = "0000002000"
.PartnIdOld = "0000002000"
End With
With ar_Businesspartner(1)
.DocNumber = "1"
.ItmNumber = "1"
.CountParvw = "1"
.PartnRole = "AP"
.PartnRoleOld = "AP"
.PartnId = "0000000005"
.PartnIdOld = "0000000005"
End With
   With ar_Businesspartner(2)
.DocNumber = "1"
.ItmNumber = "1"
.CountParvw = "1"
.PartnRole = "ZM"
.PartnRoleOld = "ZM"
Dim id As String
id = Range("C7").Value
.PartnId = id
.PartnIdOld = id
End With
Call contractWS.wsm_ZBpcontactCreatefromdata( _
ar_Businesspartner, _
ar_Generaldata, _
ar_Return, _
obj_Sender, _
str_Testrun _
Message was edited by: Marcus Schiffer
Message was edited by: Marcus Schiffer