Esta vendría siendo la macro:
Código:
Y esta una de las clases que me genero el "Office Web Service Toolkit" a la cual intento llamar:Sub getWS1() Dim objWS As New clsws_Service Dim strOutput As String Dim var1 As String Dim var2 As String Dim var3 As String Dim var4 As String Dim var5 As String var1 = "8AF" var2 = "2010-07-27" var3 = "2010-08-27" var4 = "1" var5 = "1A0" strOutput = objWS.wsm_cRegColb(var1, var2, var3, var4, var5) MsgBox strOutput End Sub
Código:
¿Cómo debo pasar los parámetros si no es de esta forma?Public Function wsm_cRegColb(ByVal str_cBNA As String, ByVal str_fINI As String, ByVal str_fFIN As String, ByVal str_vHID As String, ByVal str_cORG As String) As MSXML2.IXMLDOMNodeList '***************************************************************** 'Se creó la función proxy desde http://.../Service.asmx?wsdl. ' '"wsm_cRegColb" está definido como XML. Consulte el tema Tipos complejos: Variables XML en 'la Ayuda de Web Services Toolkit de Microsoft Office 2003 para obtener detalles acerca de la implementación de variables XML. '***************************************************************** 'Intercepción de errores On Error GoTo wsm_cRegColbTrap Set wsm_cRegColb = sc_Service.cRegColb(str_cBNA, str_fINI, str_fFIN, str_vHID, str_cORG) Exit Function
Gracias!!!