diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 84a064c2..fc6cb84f 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -73,14 +73,12 @@ Function exportCSVData(tableId As String) As Variant
     apiBody.Add "ApiKey", apiKey
     apiBody.Add "ExportId", "1"
 
-    'Filter�ϐ�
-    'Dim colFilter As New Dictionary
-    'colFilter.Add "ClassZ", "[" & yearFilter & "]"
-
-    'View�ϐ�
-    'Dim view As New Dictionary
-    'view.Add "ColumnFilterHash", colFilter
-    'apiBody.Add "View", view
+    'Filter�ESorter�����i��{���V�[�g��Filter�\�ESorter�\����g�ݗ��Ă�j
+    Dim viewObj As Object
+    Set viewObj = BuildViewFromSheet()
+    If Not viewObj Is Nothing Then
+        apiBody.Add "View", viewObj
+    End If
 
     'HTTP���N�G�X�g���M���\�b�h�Ăяo��
     Dim res As Object