可能原因是API Direction XML和Excel Webservice使用的协议不同，需要进行一些调整。可以在API Direction XML中调用Excel Webservice函数，使其能够相互通信。以下是示例代码：

'API Direction XML中的调用Excel Webservice函数
Sub CallWebService()
    Dim xmlHttp As MSXML2.XMLHTTP60
    Set xmlHttp = New MSXML2.XMLHTTP60
    
    xmlHttp.Open "POST", "http://localhost:8080/ExcelWebservice.asmx/FunctionName", False
    xmlHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    xmlHttp.send "param1=value1¶m2=value2"
    
    Dim responseXML As MSXML2.DOMDocument60
    Set responseXML = New MSXML2.DOMDocument60
    responseXML.async = False
    responseXML.LoadXML xmlHttp.responseText
    
    '处理WebService函数的响应结果
End Sub

'Excel Webservice中的函数定义
Public Function FunctionName(param1 As String, param2 As String) As String
    '处理函数逻辑
    
    '返回响应结果
    FunctionName = "result"
End Function

在API Direction XML中，可以通过上面的代码调用Excel Webservice中的FunctionName函数，并获取函数的响应结果。需要注意的是，我们需要将Excel Webservice的地址(http://localhost:8080/ExcelWebservice.asmx)和函数名(FunctionName)进行相应的替换。