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
 
+'******************************************************************************
+'Get�����iapi-record-get-multi�j�Ń��R�[�h���擾����
+'�������A���R�[�hDictionary��Collection(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�@Get��POST��