From 5440b5b94f1175b59dd0bef5c7908d429bd84434 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 14:33:10 +0900 Subject: [PATCH] Simplify CSV header export --- vba_code_kukan_detail_master.txt | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 488892a..89f8d17 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -387,18 +387,8 @@ Sub ExportMasterDetailData() End If ' Use constant for header - Dim headerList As Variant - headerList = Split(CSV_HEADER, ",") - - ' Build CSV Dim csvContent As String - Dim j As Long - - For j = 0 To UBound(headerList) - If j > 0 Then csvContent = csvContent & "," - csvContent = csvContent & headerList(j) - Next j - csvContent = csvContent & vbCrLf + csvContent = CSV_HEADER & vbCrLf ' Data: C,G,H,I,J,K,L,M,N,O,P (skip D,E,F) Dim r As Long