diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 94d0f3bd..f5931b1c 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -592,4 +592,24 @@ Sub SetupFilterSorterTables()
         Set sorterTbl = ws.ListObjects.Add(xlSrcRange, sorterHeader, , xlYes)
         sorterTbl.Name = "SorterTable"
     End If
+End Sub
+
+'******************************************************************************
+'�e�[�u��ID 96243�i�c�Ə��}�X�^�j��Export�����őS���擾���A�u�c�Ə��v�V�[�g�̃e�[�u�����X�V����
+'Filter/Sorter�͎g�p���Ȃ��B�w�b�_�s�́u�c�Ə��v�V�[�g�̊����e�[�u���̂��̂����̂܂܎g���A
+'�G�N�X�|�[�g����CSV�̃w�b�_�s�i1�s�ځj�͎̂Ă�iexportCSVDataToSheet�͊����e�[�u��������ꍇ�A
+'�w�b�_�s�������������f�[�^�����̂ݍX�V����d�l�̂��߁A��������̂܂ܗ��p����j
+Sub runSalesOfficeExport()
+    Call init
+
+    Dim resData As Variant
+
+    Debug.Print "�f�[�^�擾�����J�n�i�c�Ə��}�X�^ Export�j"
+    resData = exportCSVData("96243")
+
+    If IsEmpty(resData) Or resData = "" Then
+        Debug.Print "�f�[�^���擾�ł��܂���ł���"
+    Else
+        Call exportCSVDataToSheet(resData, "�c�Ə�")
+    End If
 End Sub
\ No newline at end of file