From 40a4e62f3f62e6b86ed337fee93d6002559c5274 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 15:39:25 +0900 Subject: [PATCH] Get header from row 5 --- vba_code_kukan_detail_master.txt | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 8a6ac79..e319195 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -386,9 +386,14 @@ Sub ExportMasterDetailData() savePath = savePath & ".csv" End If - ' Use constant for header + ' Build header from row 5 (columns C, G-P) Dim csvContent As String - csvContent = CSV_HEADER & vbLf + csvContent = Trim(ws.Cells(5, 3).Value) + Dim j As Long + For j = 7 To 16 + csvContent = csvContent & "," & Trim(ws.Cells(5, j).Value) + Next j + csvContent = csvContent & vbLf ' Row counter Dim rowCount As Long