软件: Excel
版本: Office 2013 Professional
透过VBA在Excel连接Web Service读取SQL Server
这些档案之后是用Office 2003制作,现在换Office 2013使用
主要的code写在module,有一个自动产生的class
[按钮] 执行后出现 "ActiveX 元件无法产生物件"
http://imgur.com/a/1n8At
Google上的方法+重新安装Office 2013,试了好几天找不到解决方法
以下是错误侦错停留之位置
→Module内容:
Private oSOAP As New cls_wbservice
...
Sub TEST()
Dim xmlDoc As MSXML2.IXMLDOMNodeList
Set xmlDoc = oSOAP.wsm_pro(YYMMDD)
...
End Sub
→Class内容:
Private sc_Service1 As New SoapClient30
Private Const c_WSDL_URL As String = "http://...../Service1.asmx?WSDL"
Private Const c_SERVICE As String = "Service1"
Private Const c_PORT As String = "Service1Soap"
Private Const c_SERVICE_NAMESPACE As String = "http://tempuri.org/"
Private Sub Class_Initialize()
...
End Sub
错误就停留在 Set xmlDoc = oSOAP.wsm_pro(YYMMDD)
看起来是无法产生oSOAP这个物件,用CreateObject("")也不行
请问板友有没有遇过这个问题?还是Office版本的关系呢?
谢谢