feat: 営業所マスタ(96243)Export専用の独立Sub runSalesOfficeExportを追加

既存run()とは別の独立エントリポイント。テーブルID 96243をExport方式(ExportId=1)で全件取得し「営業所」シートの既存テーブルを更新する。
Filter/Sorterは使わない。exportCSVDataToSheetが既存テーブルのヘッダを書き換えずデータ部分のみ更新する仕様をそのまま利用し、CSVのヘッダ行は自動的に捨てられる。

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

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
+
+'******************************************************************************
+'テーブルID 96243（営業所マスタ）をExport方式で全件取得し、「営業所」シートのテーブルを更新する
+'Filter/Sorterは使用しない。ヘッダ行は「営業所」シートの既存テーブルのものをそのまま使い、
+'エクスポートしたCSVのヘッダ行（1行目）は捨てる（exportCSVDataToSheetは既存テーブルがある場合、
+'ヘッダ行を書き換えずデータ部分のみ更新する仕様のため、これをそのまま利用する）
+Sub runSalesOfficeExport()
+    Call init
+
+    Dim resData As Variant
+
+    Debug.Print "データ取得処理開始（営業所マスタ Export）"
+    resData = exportCSVData("96243")
+
+    If IsEmpty(resData) Or resData = "" Then
+        Debug.Print "データが取得できませんでした"
+    Else
+        Call exportCSVDataToSheet(resData, "営業所")
+    End If
 End Sub