mygit-admin/ken_nogi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: callRestApiのデバッグログをコメントアウト(削除せず必要時に復活できるよう保持)

Browse Source 
Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
Kenichiro NOGI 2026-09-18 19:09:58 +09:00
parent 0544365276
commit 4b8498ba2d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -593,8 +593,8 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
objHTTP.setRequestHeader headers.keys(i), headers.items(i) objHTTP.setRequestHeader headers.keys(i), headers.items(i)
Next i Next i
'デバッグ用: 送信するリクエストボディを出力（原因調査後に削除する） 'デバッグ用: 送信するリクエストボディを出力（必要な時だけコメントアウトを外す）
Debug.Print " [DEBUG] Request Body: " & JsonConverter.ConvertToJson(body) 'Debug.Print " [DEBUG] Request Body: " & JsonConverter.ConvertToJson(body)
'リクエスト送信 'リクエスト送信
objHTTP.send JsonConverter.ConvertToJson(body) objHTTP.send JsonConverter.ConvertToJson(body)
@ -603,10 +603,10 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
DoEvents DoEvents
Loop Loop
'デバッグ用: レスポンス全文を出力（原因調査後に削除する） 'デバッグ用: レスポンス全文を出力（必要な時だけコメントアウトを外す）
Debug.Print " [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText 'Debug.Print " [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText
Debug.Print " [DEBUG] Response Body (全文):" 'Debug.Print " [DEBUG] Response Body (全文):"
Debug.Print objHTTP.responseText 'Debug.Print objHTTP.responseText
'レスポンスの文字列（objHTTP.responseText）をJsonに変換して返却 'レスポンスの文字列（objHTTP.responseText）をJsonに変換して返却
Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText) Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText)