debug: レスポンスステータス・本文全文を出力するデバッグコードを追加

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas

@@ -569,6 +569,11 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
         DoEvents
     Loop
 
+    'デバッグ用: レスポンス全文を出力（原因調査後に削除する）
+    Debug.Print "  [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText
+    Debug.Print "  [DEBUG] Response Body (全文):"
+    Debug.Print objHTTP.responseText
+
     'レスポンスの文字列（objHTTP.responseText）をJsonに変換して返却
     Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText)