Excel VBAで商品情報を更新するアプリを組んでおります。
商品コードと価格から商品一括更新APIで情報を更新しようとしています。
すこし前まではstatusTextがOKで返ってきていたのですが、
12019、Unknownというエラーが返ってくるようになってしまい、原因がわかりません。
原因がお分かりになるようでしたらご教示いただけないでしょうか?
どうぞよろしくお願いいたします。
リクエストをブラウザに打ち込むと下記のようなレスポンスが来ますが、
リクエストには商品コードを入れてあります。
<Error>
<Message>
<![CDATA[ 商品が指定されていません。 ]]>
</Message>
<Detail/>
<Code>it-02001</Code>
</Error>
コードは下記のようにしています。
※アクセストークンをHTTPヘッダーに含めて認証するのがうまくできなかったため、
リクエストボディに含めて認証しています
url = "https://circus.shopping.yahooapis.jp/ShoppingWebService/V1/updateItems"
postParam = "seller_id=storeid&item1=item_code%3D" & "XXXXXXXX" & "%26sale_price%3D%26price%3D" & "15000" & "&access_token=" & acsToken
Set objXML = New MSXML2.XMLHTTP
With objXML
.Open "POST", url, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send (postParam)
End With
ActiveSheet.Cells(i, eCol) = objXML.statusText