Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.vb.general.discussion,microsoft.public.excel.programming
|
|||
|
|||
Help "438 - Object doesn't support this property or method"
Hello,
My code is getting the error '438 - Object doesn't support this property or method' in my VBA Excel app that uses a web service. I suspect, however, that the problem is a basic VBA one, as I am not very familiar with VBA. I created the objects via the Web Services Reference tools (referencing the URL of the WSDL) with no problems, and got the following class modules: clws_Factory_CustomerQuery clws_CustomerQuery struct_AniDnis struct_QueryResult I made objects from these classes (skipping the factory) as follows: Dim CustQuery As New clsws_CustomerQuery Dim Query_Input As New struct_AniDnis Dim Query_Output As New struct_QueryResult When I run the code, I get the '438 - Object doesn't support this property or method' error when I call the method that actually does the query: Query_Output = CustQuery.wsm_getDnis(Query_Input) When I type the dot after CustQuery, it gives me the wsm_getDnis method, so I know it has this method, and at some level VBA knows it has this method. Just not at runtime, for some reason. The wsm_getDnis method is defined in the generated clsws_CustomerQueryclass module as follows: Public Function wsm_getDnis(ByVal obj_requestInfo As struct_AniDnis) As struct_QueryResult I wonder if perhaps I am passing the Query_Input value incorrectly, due to my lack of VBA experience. Thanks much, Tim (the following is the entire method I wrote) ================================================== Private Sub Execute_Query_Click() Dim CustQuery As New clsws_CustomerQuery Dim Query_Input As New struct_AniDnis Dim Query_Output As New struct_QueryResult Query_Input.Ani = "5612186545" Query_Input.DestNumber = "5615426969" Query_Output.Result = 0 Query_Output.Dnis = "NORESULT" Query_Output.Pin = "NORESULT" 'grab values from spreadsheet If Not IsEmpty("B3") Then Query_Input.Ani = Val(Range("B3").Text) If Not IsEmpty("B4") Then Query_Input.DestNumber = Val(Range("B4").Text) End If End If ' Execute query Query_Output = CustQuery.wsm_getDnis(Query_Input) Range("B7").Value = Query_Output.Result Range("B8").Value = Query_Output.Dnis Range("B9").Value = Query_Output.Pin End Sub ================================================== |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Object doesn't support this property or method" in Excel 2003 | Excel Discussion (Misc queries) | |||
VBA error: "object doesn't support this property or method" | Excel Discussion (Misc queries) | |||
Why "object doesn't suppor this property or method"? | Excel Programming | |||
Object doesn't support this property or method | Excel Programming | |||
"Select Column method or property not available because some/all of object doesn't refer to table" | Excel Programming |