VBAのobject型の存在確認について

Question

お世話になっております。
VBAでobject型の比較を行っているのですが、
返ってくる値が異なる為、下記エラーになってしまうのですがどのようにすればいいでしょうか
ご教授ください。

public sub AAA()
   Dim url as String
   Dim data as String
   Dim jsonData as Object
  
   url = "http://example.com"
   data = "[{jsonのデータ}]"
   
   Set jsonData = json返却関数(url,data)

   if jsonData("result") = "0" then
     msgbox("エラーです")
   else
     msgbox("成功")
   end if
end sub

上記json返却関数に、urlとデータを渡すと、

失敗時：jsonData("result")に0が入ります
成功時：jsonData("user_name")が作られる　（jsonData("result")は作られません）

上記のようにした場合、
成功時、jsonData("result")がない為、引数が不正ですという
エラーになってしまうのですがどのようにすればいいでしょうか。

以上、よろしくお願いいたします。

Comments

[m.ts10806]

json返却関数　についてもコードをご提示ください。

Answer 1

成功時jsonData("result")を作らないのではなく、"0"以外の値を入れればいいのでは？
ないなら作ればいいという安直な考えですが...

Answer 2

成功時には存在しない（エラーがでるような）もので成功、失敗を判断するという仕様自体に問題があります。

json返却関数 の仕様の変更可能なら、下記のようにことを検討するべきですね。

Fuctionの返り値をBoolean型にして、成功か失敗かの判断をする。
object は Byref の引数にする。

あるいは、syameimaruさんの回答のように、成功時でも、jsonData("result")を作ってその中身(0なら成功、それ例外なら成功)で判断する。

仕様変更が無理なら、エラー処理で回避するしかないかと。

コードの一例

Dim Res As String

On Error Resume Next
Res = jsonData("result")
If Err.Number = 0 And Res = "0" Then
    Msgbox "エラーです"
ElseIf Err.Number = 9999 Then '9999は、成功時のエラー番号に変更
    Msgbox "成功"
Else
    Msgbox "予期せぬエラーです。エラー番号:" & Err.Number & vbCrLf & Err.Description
End If

On Error Goto 0

Answer 3

json返却関数の動作を変更できるのなら、syameimaruさんのアドバイスにもある通り、成功時にもjsonData("result")に値（0以外）を返すようにしたほうがいいと思います。

もしjson返却関数に手を加えることができず、jsonData("result") = "0"以外に成否の判定ができないのであれば、エラートラップすればいいと思います。

On Error Resume Next    'エラートラップ開始

Dim strResult As String
strResult = jsonData("result")  'resultを変数に取得する(成功時はここでエラー)
If Err > 0 Then
    'resultの取得がエラーになる⇒成功（strResultには0以外の値をセットする）
    strResult = ""
End IF

On Error GoTo 0 'エラートラップ解除

If strResult = "0" Then
    Msgbox("エラーです")
Else
    Msgbox("成功")
End If

参考になれば幸いです。

Answer 4

ご自分で作られた「json返却関数」の仕様次第じゃないですか？

もしくは、ご指定のURLから、どういう状態で返ってくるかの仕様次第。

仕様が分からないのに質問されても、誰もわかりません。