From d3d844d441c735442c9a3aa5c2b740ca54f92421 Mon Sep 17 00:00:00 2001 From: Kenichiro NOGI Date: Fri, 11 Sep 2026 13:25:01 +0900 Subject: [PATCH] =?UTF-8?q?feat:=20Get=20API(api-record-get-multi)?= =?UTF-8?q?=E3=81=A7=E3=83=AC=E3=82=B3=E3=83=BC=E3=83=89=E3=82=92=E5=8F=96?= =?UTF-8?q?=E5=BE=97=E3=81=99=E3=82=8BgetRecordsData=E3=82=92=E8=BF=BD?= =?UTF-8?q?=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../vba-files/Module/Module1.bas | 32 +++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas index fc6cb84f..b8cc5f92 100644 --- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas +++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas @@ -291,6 +291,38 @@ Function BuildViewFromSheet() As Object Set BuildViewFromSheet = viewObj End Function +'****************************************************************************** +'Getiapi-record-get-multijŃR[h擾 +'AR[hDictionaryCollection(Response.Data)Ԃ +Function getRecordsData(tableId As String) As Collection + Dim apiUrl As String + Dim apiUrlParam As String + + apiUrl = baseURL & "/pleasanter/api/items/" & tableId & "/" + apiUrlParam = "get" + + Dim apiHeaders As New Dictionary + apiHeaders.Add "Content-Type", "application/json;charset=utf-8" + + Dim apiBody As New Dictionary + apiBody.Add "ApiVersion", "1.1" + apiBody.Add "ApiKey", apiKey + + Dim viewObj As Object + Set viewObj = BuildViewFromSheet() + If Not viewObj Is Nothing Then + apiBody.Add "View", viewObj + End If + + Dim res As Object + Set res = callRestApi("POST", apiUrl, apiUrlParam, apiHeaders, apiBody) + + If res("StatusCode") = 200 Then + Debug.Print "R[h̎擾ɐ܂" + Set getRecordsData = res("Response")("Data") + End If +End Function + '****************************************************************************** 'REST APIďo '@method@GetPOST