找不到excel VBA web服务提供的错误方法或数据对象

我对excel VBA应用程序有一个奇怪的问题

它使用web服务连接到mysql数据库

它在大多数计算机上都运行良好……但是在某些计算机上它会抛出一个错误：

未找到编译方法或数据对象时出错

所有计算机都运行Windows 7和Office 2007

下面是发生错误的web服务代码示例

Public Function wsm_get_portscountries(ByVal str_SQLQuery As String) As MSXML2.IXMLDOMNodeList

   On Error GoTo wsm_get_portscountriesTrap

    Set wsm_get_portscountries = sc_WebService1.wsm_get_portscountries(str_SQLQuery)

Exit Function
wsm_get_portscountriesTrap:
    WebService1ErrorHandler "wsm_get_portscountries"
End Function

该错误在此处突出显示粗体部分：

sc_WebService1.wsm_get_portscontriesstr_SQLQuery

有没有人遇到过同样的问题？？有什么想法吗？？ 正如我所说，在大多数计算机上，它运行良好，没有问题，只在一些计算机上发生

提前谢谢

其他信息： 类模块

Private Sub Class_Initialize()

    On Error GoTo Class_Initialize_error

    Dim str_WSML As String
    str_WSML = ""

    Set sc_WebService1 = New SoapClient30

    sc_WebService1.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
    sc_WebService1.ConnectorProperty("ProxyServer") = "<CURRENT_USER>"
    sc_WebService1.ConnectorProperty("EnableAutoProxy") = True

    Exit Sub

Class_Initialize_error:    

End Sub

---

您是否检查了VBA项目中缺少的引用？使您的函数延迟绑定：公共函数wsm_get_portscontriesbyval str_SQLQuery作为字符串Object@jbarker，是的，我检查了参考资料，没有遗漏。@David，是的！你的解决方案在大多数计算机上都有效，出于某种原因，一些夫妇仍然有这个问题……奇怪。然而，你已经解决了大部分问题。我很感激。什么是sc_网站服务1？