Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17280 / 76732 ←次へ | 前へ→

【64908】EXCEL VBAからWEBサービス起動
質問  オートメーションエラー  - 10/3/26(金) 10:56 -

引用なし
パスワード
   お世話になります。
書き方などいたらぬ点があるかと思いますが宜しくお願いします。

■状況
EXCEL-VBAからWEBサービスを呼び出す方法を検討しています。
WEBサービスの起動はSoapClientで成功しているのですが
引数や戻り値にVBAに存在しない型(構造体やList型)を
使う場合うまくいきません。

■お聞きしたいこと
--------------------------------------
1.クラスモジュールの使い方に誤りがありますでしょうか。
2.戻り値でユーザ定義型のリストを受け取った場合
  どのように処理すれば良いでしょうか。
  例えば戻り値をreturnObject(0)といった配列のように
  取得できますでしょうか。また要素への参照は
  returnObject(0).userIdと指定してもエラーですよね???
--------------------------------------

■WEBサービス仕様
--------------------------------------
 呼び出し方法:testExec(customer)
 要素名:customer
     →データ型:CustomerInfo
     →CustomerInfoは、testIdとtestNameという要素を持ちます
 戻り値:businessList(Businessという構造体のリスト)
--------------------------------------

■構造体代わりに準備したクラスモジュール
'CustomerInfo.cls
--------------------------------------
Option Explicit
Public workTestId As String
Public workTestName As String

Property Get testId() As String
  testId = workTestId
End Property
Property Let testId(ByVal testId As String)
  workTestId = testId
End Property
Property Get testName() As String
  testName = workTestName
End Property
Property Let testName(ByVal testName As String)
  workTestName = testName
End Property
--------------------------------------

■VBAのコード
--------------------------------------
Dim rtnObject As Object
Dim oSoapClient As SoapClient30
Dim customer as CustomerInfo

Set oSoapClient = New oSoapClient30
oSoapClient.mssoapinit(WSDLのパス)
customer.testId = "ID"
customer.testName = "テスト太郎"
Set rtnObject = oSoapClient.testExec(customer) ←【1】質問の1です

'rtnObjectというオブジェクト型でとりあえず受けましたが
'戻り値をどう解析すればいいのでしょう?
'debug.print rtnObject(0).testId ←【2】質問の2です
--------------------------------------

■エラー内容
--------------------------------------
 インターフェイスがサポートされていません。
--------------------------------------

1 hits

【64908】EXCEL VBAからWEBサービス起動 オートメーションエラー 10/3/26(金) 10:56 質問
【64921】Re:EXCEL VBAからWEBサービス起動 neptune 10/3/26(金) 18:59 発言
【64946】Re:EXCEL VBAからWEBサービス起動 オートメーションエラー 10/3/29(月) 9:55 回答
【65010】Re:EXCEL VBAからWEBサービス起動 オートメーションエラー 10/4/1(木) 17:42 お礼

17280 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free