From e455fe0a21278be4f799f8bf2d204f352bad7fed Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Mon, 14 Sep 2026 09:58:00 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20runSalesOfficeExport=E3=81=ABNumA?=
 =?UTF-8?q?=E6=98=87=E9=A0=86=E3=81=AE=E3=82=BD=E3=83=BC=E3=83=88=E6=9D=A1?=
 =?UTF-8?q?=E4=BB=B6=E3=82=92=E5=9B=BA=E5=AE=9A=E3=81=A7=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

exportCSVDataにOptionalなviewObj引数を追加し、営業所Export専用にColumnSorterHash(NumA:asc)を渡すよう変更。
既存のrunExportFlowはviewObj省略のためViewなしのまま、既存動作に影響なし。

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 .../vba-files/Module/Module1.bas                 | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

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�[�^���擾�ł��܂���ł���"