feat: runSalesOfficeExportにNumA昇順のソート条件を固定で追加

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

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas

@@ -107,7 +107,7 @@ End Function
 
 '******************************************************************************
 'CSVデータを取得
-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リクエスト送信メソッド呼び出し
     Dim res As Object
     Set res = callRestApi("POST", apiUrl, apiUrlParam, apiHeaders, apiBody)
@@ -596,7 +600,7 @@ End Sub
 
 '******************************************************************************
 'テーブルID 96243（営業所マスタ）をExport方式で全件取得し、「営業所」シートのテーブルを更新する
-'Filter/Sorterは使用しない。ヘッダ行は「営業所」シートの既存テーブルのものをそのまま使い、
+'ソートはNumA昇順で固定。Filterは使用しない。ヘッダ行は「営業所」シートの既存テーブルのものをそのまま使い、
 'エクスポートしたCSVのヘッダ行（1行目）は捨てる（exportCSVDataToSheetは既存テーブルがある場合、
 'ヘッダ行を書き換えずデータ部分のみ更新する仕様のため、これをそのまま利用する）
 Sub runSalesOfficeExport()
@@ -604,8 +608,14 @@ Sub runSalesOfficeExport()
 
     Dim resData As Variant
 
+    'ソート条件（NumA昇順）を固定で組み立てる
+    Dim colSorter As New Dictionary
+    colSorter.Add "NumA", "asc"
+    Dim viewObj As New Dictionary
+    viewObj.Add "ColumnSorterHash", colSorter
+
     Debug.Print "データ取得処理開始（営業所マスタ Export）"
-    resData = exportCSVData("96243")
+    resData = exportCSVData("96243", viewObj)
 
     If IsEmpty(resData) Or resData = "" Then
         Debug.Print "データが取得できませんでした"