From e879b0f584d6e8895e33174339d37038dbb66b07 Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 18 Sep 2026 18:57:06 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20runExportFlow=E3=81=AB=E3=82=82Get?=
 =?UTF-8?q?=E6=96=B9=E5=BC=8F=E3=81=A8=E5=90=8C=E3=81=98Filter/Sorter?=
 =?UTF-8?q?=E6=9D=A1=E4=BB=B6=E3=82=92=E9=81=A9=E7=94=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

exportCSVDataのOptional viewObj引数にBuildViewFromSheet()の結果を渡すことで、
FilterTable/SorterTableの絞り込み・並び替え条件がExport方式にも反映されるようにした。

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index a4a0de5d..7fca9b6e 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -75,7 +75,10 @@ Function runExportFlow() As Boolean
 
     Debug.Print "�f�[�^�擾�����J�n�iExport�����j"
     t0 = Timer
-    resData = exportCSVData(tableId)
+    'Filter�ESorter�����i��{���V�[�g��FilterTable�ESorterTable����g�ݗ��Ă�AGet�����Ɠ������j
+    Dim viewObj As Object
+    Set viewObj = BuildViewFromSheet()
+    resData = exportCSVData(tableId, viewObj)
     t1 = Timer
     Debug.Print "  exportCSVData(API�ʐM) ���v����: " & Format(t1 - t0, "0.000") & "�b"