diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index f5931b1c..a5f67898 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -107,7 +107,7 @@ End Function
 
 '******************************************************************************
 'CSV�f�[�^���擾
-Function exportCSVData(tableId As String) As Variant
+Function exportCSVData(tableId As String, Optional viewObj As Object = Nothing) As Variant
     '���ʕϐ�
     Dim apiUrl As String
     Dim apiUrlParam As String
@@ -126,6 +126,10 @@ Function exportCSVData(tableId As String) As Variant
     apiBody.Add "ApiKey", apiKey
     apiBody.Add "ExportId", "1"
 
+    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
     Set res = callRestApi("POST", apiUrl, apiUrlParam, apiHeaders, apiBody)
@@ -596,7 +600,7 @@ 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��NumA�����ŌŒ�BFilter�͎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()
@@ -604,8 +608,14 @@ Sub runSalesOfficeExport()
 
     Dim resData As Variant
 
+    '�\�[�g�����iNumA�����j���Œ�őg�ݗ��Ă�
+    Dim colSorter As New Dictionary
+    colSorter.Add "NumA", "asc"
+    Dim viewObj As New Dictionary
+    viewObj.Add "ColumnSorterHash", colSorter
+
     Debug.Print "�f�[�^�擾�����J�n�i�c�Ə��}�X�^ Export�j"
-    resData = exportCSVData("96243")
+    resData = exportCSVData("96243", viewObj)
 
     If IsEmpty(resData) Or resData = "" Then
         Debug.Print "�f�[�^���擾�ł��܂���ł���"