Private Sub test() ' クラスの初期化 Dim mule As MuleClassProvider.clsMule // Muleクラスを宣言 Set mule = MuleClassProvider.New_clsMule // Muleクラスを作成 ' Muleの設定 mule.uri = "http://localhost:81/services/syainUMO?method=getList" ' WebServiceのURIを設定 mule.user = "sa" ' ユーザ名を設定 mule.password = "" ' パスワードを設定 mule.key = "12345 ' 検索キーを設定 ' データの取得 Dim xmlDoc As MSXML2.DOMDocument ' データを受け取るXML文書を宣言 Set xmlDoc = mule.GetData ' データを取得 If (xmlDoc Is Nothing) Then ' 内容があるか確認 MsgBox "error code:" & mule.errCode & " " & mule.errMsg ' ない場合はエラーコード Else ' をメッセージを表示 MsgBox xmlDoc.xml ' ある場合は内容を表示 End If End Sub