From 70d9eb974bb1ad3908da24685bc969d086b63d53 Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Mon, 14 Sep 2026 09:56:02 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20=E5=96=B6=E6=A5=AD=E6=89=80=E3=83=9E?=
 =?UTF-8?q?=E3=82=B9=E3=82=BF(96243)Export=E5=B0=82=E7=94=A8=E3=81=AE?=
 =?UTF-8?q?=E7=8B=AC=E7=AB=8BSub=20runSalesOfficeExport=E3=82=92=E8=BF=BD?=
 =?UTF-8?q?=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

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

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