From 46e463519138a2bc54a18c3d177e5e796ab86bd2 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 12:47:38 +0900
Subject: [PATCH] Fix CSV header - use Split at runtime

---
 vba_code_kukan_detail_master.txt | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index 21b3624..d491470 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -178,18 +178,20 @@ Sub ImportMasterDetailData()
         Dim csvHeader As String
         csvHeader = Trim(lines(0))
         ' Validate header by comparing each field
+        Dim expectedHeaders As Variant
+        expectedHeaders = Split(CSV_HEADER, ",")
         Dim headerFields As Variant
         headerFields = Split(csvHeader, ",")
         Dim headerMismatch As Boolean
         headerMismatch = False
         Dim k As Long
-        For k = 0 To UBound(CSV_HEADER_ARRAY)
-            If k > UBound(headerFields) Or Trim(headerFields(k)) <> CSV_HEADER_ARRAY(k) Then
+        For k = 0 To UBound(expectedHeaders)
+            If k > UBound(headerFields) Or Trim(headerFields(k)) <> Trim(expectedHeaders(k)) Then
                 headerMismatch = True
                 Exit For
             End If
         Next k
-        If headerMismatch Or UBound(headerFields) <> UBound(CSV_HEADER_ARRAY) Then
+        If headerMismatch Or UBound(headerFields) <> UBound(expectedHeaders) Then
             MsgBox "CSV header mismatch.", vbExclamation
             Exit Sub
         End If
@@ -396,7 +398,7 @@ Sub ExportMasterDetailData()
     
     ' Use constant for header
     Dim headerList As Variant
-    headerList = CSV_HEADER_ARRAY
+    headerList = Split(CSV_HEADER, ",")
     
     ' Build CSV
     Dim csvContent As String