From adfd140d9ba702b9eb6fa91fbf8c474f4942a144 Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 11 Sep 2026 13:21:40 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20exportCSVData=E3=81=8CBuildViewFromShee?=
 =?UTF-8?q?t=E3=81=A7Filter/Sorter=E3=82=92=E7=B5=84=E3=81=BF=E7=AB=8B?=
 =?UTF-8?q?=E3=81=A6=E3=82=8B=E3=82=88=E3=81=86=E5=A4=89=E6=9B=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../vba-files/Module/Module1.bas                   | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 84a064c2..fc6cb84f 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -73,14 +73,12 @@ Function exportCSVData(tableId As String) As Variant
     apiBody.Add "ApiKey", apiKey
     apiBody.Add "ExportId", "1"
 
-    'Filter�ϐ�
-    'Dim colFilter As New Dictionary
-    'colFilter.Add "ClassZ", "[" & yearFilter & "]"
-
-    'View�ϐ�
-    'Dim view As New Dictionary
-    'view.Add "ColumnFilterHash", colFilter
-    'apiBody.Add "View", view
+    'Filter�ESorter�����i��{���V�[�g��Filter�\�ESorter�\����g�ݗ��Ă�j
+    Dim viewObj As Object
+    Set viewObj = BuildViewFromSheet()
+    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