diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index a4a0de5d..7fca9b6e 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -75,7 +75,10 @@ Function runExportFlow() As Boolean
 
     Debug.Print "�f�[�^�擾�����J�n�iExport�����j"
     t0 = Timer
-    resData = exportCSVData(tableId)
+    'Filter�ESorter�����i��{���V�[�g��FilterTable�ESorterTable����g�ݗ��Ă�AGet�����Ɠ������j
+    Dim viewObj As Object
+    Set viewObj = BuildViewFromSheet()
+    resData = exportCSVData(tableId, viewObj)
     t1 = Timer
     Debug.Print "  exportCSVData(API�ʐM) ���v����: " & Format(t1 - t0, "0.000") & "�b"