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 - 'fobOp: M郊NGXg{fBóiɍ폜j - Debug.Print " [DEBUG] Request Body: " & JsonConverter.ConvertToJson(body) + 'fobOp: M郊NGXg{fBóiKvȎRgAEgOj + 'Debug.Print " [DEBUG] Request Body: " & JsonConverter.ConvertToJson(body) 'NGXgM objHTTP.send JsonConverter.ConvertToJson(body) @@ -603,10 +603,10 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval DoEvents Loop - 'fobOp: X|XSóiɍ폜j - Debug.Print " [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText - Debug.Print " [DEBUG] Response Body (S):" - Debug.Print objHTTP.responseText + 'fobOp: X|XSóiKvȎRgAEgOj + 'Debug.Print " [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText + 'Debug.Print " [DEBUG] Response Body (S):" + 'Debug.Print objHTTP.responseText 'X|X̕iobjHTTP.responseTextjJsonɕϊĕԋp Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText)