From 4b8498ba2db06fc5a50bd90b7c9c62802e688375 Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 18 Sep 2026 19:09:58 +0900
Subject: [PATCH] =?UTF-8?q?chore:=20callRestApi=E3=81=AE=E3=83=87=E3=83=90?=
 =?UTF-8?q?=E3=83=83=E3=82=B0=E3=83=AD=E3=82=B0=E3=82=92=E3=82=B3=E3=83=A1?=
 =?UTF-8?q?=E3=83=B3=E3=83=88=E3=82=A2=E3=82=A6=E3=83=88(=E5=89=8A?=
 =?UTF-8?q?=E9=99=A4=E3=81=9B=E3=81=9A=E5=BF=85=E8=A6=81=E6=99=82=E3=81=AB?=
 =?UTF-8?q?=E5=BE=A9=E6=B4=BB=E3=81=A7=E3=81=8D=E3=82=8B=E3=82=88=E3=81=86?=
 =?UTF-8?q?=E4=BF=9D=E6=8C=81)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 .../vba-files/Module/Module1.bas                     | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 4514ca77..84ea197d 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -593,8 +593,8 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
         objHTTP.setRequestHeader headers.keys(i), headers.items(i)
     Next i
 
-    '�f�o�b�O�p: ���M���郊�N�G�X�g�{�f�B���o�́i����������ɍ폜����j
-    Debug.Print "  [DEBUG] Request Body: " & JsonConverter.ConvertToJson(body)
+    '�f�o�b�O�p: ���M���郊�N�G�X�g�{�f�B���o�́i�K�v�Ȏ������R�����g�A�E�g���O���j
+    'Debug.Print "  [DEBUG] Request Body: " & JsonConverter.ConvertToJson(body)
 
     '���N�G�X�g���M
     objHTTP.send JsonConverter.ConvertToJson(body)
@@ -603,10 +603,10 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
         DoEvents
     Loop
 
-    '�f�o�b�O�p: ���X�|���X�S�����o�́i����������ɍ폜����j
-    Debug.Print "  [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText
-    Debug.Print "  [DEBUG] Response Body (�S��):"
-    Debug.Print objHTTP.responseText
+    '�f�o�b�O�p: ���X�|���X�S�����o�́i�K�v�Ȏ������R�����g�A�E�g���O���j
+    'Debug.Print "  [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText
+    'Debug.Print "  [DEBUG] Response Body (�S��):"
+    'Debug.Print objHTTP.responseText
 
     '���X�|���X�̕�����iobjHTTP.responseText�j��Json�ɕϊ����ĕԋp
     Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText)