彰化一整天的論壇

 找回密碼
 立即註冊
查看: 181|回復: 4

自訂型態尚未定義

[複製鏈接]
發表於 2019-2-15 11:47:52 | 顯示全部樓層 |閱讀模式
本帖最後由 z22344566 於 2019-2-15 14:12 編輯

請問
底下的程式碼是可以在 excel2003上執行
但在 excel2010上卻無法執行
會出現使用者自訂型態尚未定義的問題
出現在 Private sc_Service As SoapClient30 這一行
設定引用項目的方法也試過了,也不行
2003版本與2010版本比較似乎是少了 soap type 項目
請問該怎麼辦,請老師幫幫忙,謝謝。

  1. '*****************************************************************
  2. '這個類別由 Microsoft Office 2003 Web Services Toolkit 建立。
  3. '
  4. '建立時間: 4/27/2016 10:53:51 PM
  5. '
  6. '描述:
  7. '這個類別是 Web 服務的 Visual Basic for Application 類別表示,
  8. '如 http://192.168.1.1/web/WEBSERVICE/service.asmx?wsdl 所定義。
  9. '
  10. '使用:
  11. '將變數標示為 New clsws_Service,然後撰寫程式碼以
  12. '使用類別提供的方法。
  13. '範例:
  14. ' Dim ExampleVar as New clsws_Service
  15. ' debug.print ExampleVar.wsm_品號庫存儲位("範例輸入")
  16. '
  17. '如需詳細資訊,請參閱 Microsoft Office 2003
  18. ' Web Services Toolkit 說明中的<複雜型別>。
  19. '
  20. '變更這個類別的程式碼可能會導致不正確的行為。
  21. '
  22. '*****************************************************************

  23. '宣告私用的 (Private) 類別變數。
  24. Private sc_Service As SoapClient30
  25. Private Const c_WSDL_URL As String = "http://192.168.1.1/web/WEBSERVICE_TEST/service.asmx?wsdl"
  26. Private Const c_SERVICE As String = "Service"
  27. Private Const c_PORT As String = "ServiceSoap"
  28. Private Const c_SERVICE_NAMESPACE As String = "http://tempuri.org/"

  29. Private Sub Class_Initialize()
  30.     '*****************************************************************
  31.     '每次執行個體化類別時都將呼叫這個副程式。
  32.     '建立 sc_ComplexTypes 當作新的 SoapClient30,然後
  33.     '使用下列位置中找到的 WSDL 檔案來初始化 sc_ComplexTypes.mssoapinit2:
  34.     'http://192.168.1.1/web/WEBSERVICE/service.asmx?wsdl。
  35.     '*****************************************************************

  36.     Dim str_WSML As String
  37.     str_WSML = ""

  38.     Set sc_Service = New SoapClient30

  39.     sc_Service.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
  40.     '使用在 Internet Explorer 的 LAN 設定中定義的 Proxy 伺服器,做法是
  41.     '將 ProxyServer 設為 <CURRENT_USER>
  42.     sc_Service.ConnectorProperty("ProxyServer") = "<CURRENT_USER>"
  43.     '自動偵測 Proxy 設定 (如果 Internet Explorer 設為自動偵測的話),
  44.     '做法是將 EnableAutoProxy 設為 True
  45.     sc_Service.ConnectorProperty("EnableAutoProxy") = True


  46. End Sub

  47. Private Sub Class_Terminate()
  48.     '*****************************************************************
  49.     '每次解構類別時都將呼叫這個副程式。
  50.     '將 sc_ComplexTypes 設為 Nothing。
  51.     '*****************************************************************

  52.     '錯誤截獲
  53.     On Error GoTo Class_TerminateTrap

  54.     Set sc_Service = Nothing

  55. Exit Sub

  56. Class_TerminateTrap:
  57.     ServiceErrorHandler ("Class_Terminate")
  58. End Sub

  59. Private Sub ServiceErrorHandler(str_Function As String)
  60.     '*****************************************************************
  61.     '這個副程式是類別的錯誤處理常式,它可以在任何類別副程式或函式遇到
  62.     '錯誤時,從該副程式或函式中被呼叫。接著它將會引發錯誤並帶出呼叫的
  63.     '副程式或函式名稱 。
  64.     '*****************************************************************

  65.     'SOAP 錯誤
  66.     If sc_Service.FaultCode <> "" Then
  67.         Err.Raise vbObjectError, str_Function, sc_Service.FaultString
  68.     '非 SOAP 錯誤
  69.     Else
  70.         Err.Raise Err.Number, str_Function, Err.Description
  71.     End If

  72. End Sub
複製代碼






回復

使用道具 舉報

發表於 2019-2-15 13:42:54 | 顯示全部樓層
您好,
     有完整的範例檔案可以下載嗎?
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-2-15 14:18:47 | 顯示全部樓層
imingho 發表於 2019-2-15 13:42
您好,
     有完整的範例檔案可以下載嗎?

老師好

檔案如附件,謝謝。

範例.xls

52 KB, 下載次數: 37

回復 支持 反對

使用道具 舉報

發表於 2019-2-15 17:26:05 | 顯示全部樓層
z22344566 發表於 2019-2-15 14:18
老師好

檔案如附件,謝謝。

您好,
    幫您找了網路資料.有一個網站
https://social.msdn.microsoft.co ... forum=officegeneral
可以下載 SOAP Toolkit 3.0
但是試了,好像也是不行
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-2-15 17:29:35 | 顯示全部樓層
imingho 發表於 2019-2-15 17:26
您好,
    幫您找了網路資料.有一個網站
https://social.msdn.microsoft.com/Forums/lync/en-US/e4f4d5f3 ...

對阿
2010沒辦法
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-9-21 19:00 , Processed in 0.131105 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表