mygit-admin/ken_nogi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: runExportFlowにもGet方式と同じFilter/Sorter条件を適用

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

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
Kenichiro NOGI 2026-09-18 18:57:06 +09:00
parent a60244b7b0
commit e879b0f584
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,7 +75,10 @@ Function runExportFlow() As Boolean
Debug.Print "データ取得処理開始（Export方式）" Debug.Print "データ取得処理開始（Export方式）"
t0 = Timer t0 = Timer
resData = exportCSVData(tableId) 'Filter・Sorter条件（基本情報シートのFilterTable・SorterTableから組み立てる、Get方式と同条件）
Dim viewObj As Object
Set viewObj = BuildViewFromSheet()
resData = exportCSVData(tableId, viewObj)
t1 = Timer t1 = Timer
Debug.Print " exportCSVData(API通信) 所要時間: " & Format(t1 - t0, "0.000") & "秒" Debug.Print " exportCSVData(API通信) 所要時間: " & Format(t1 - t0, "0.000") & "秒"