From fddfd9e263f91cb8bc53283bed91579d309a4542 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 14:22:22 +0900
Subject: [PATCH] Only validate CSV column count

---
 vba_code_kukan_detail_master.txt | 19 +++++--------------
 1 file changed, 5 insertions(+), 14 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index a4c5258..488892a 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -176,22 +176,13 @@ Sub ImportMasterDetailData()
     If UBound(lines) >= 0 And Trim(lines(0)) <> "" Then
         Dim csvHeader As String
         csvHeader = Trim(lines(0))
-        ' Validate header by comparing each field
-        Dim expectedHeaders As Variant
-        expectedHeaders = Split(CSV_HEADER, ",")
+        ' Validate column count
+        Dim expectedCount As Long
+        expectedCount = UBound(Split(CSV_HEADER, ",")) + 1
         Dim headerFields As Variant
         headerFields = Split(csvHeader, ",")
-        Dim headerMismatch As Boolean
-        headerMismatch = False
-        Dim k As Long
-        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(expectedHeaders) Then
-            MsgBox "CSV header mismatch.", vbExclamation
+        If UBound(headerFields) + 1 <> expectedCount Then
+            MsgBox "CSV column count mismatch. Expected: " & expectedCount & ", Got: " & UBound(headerFields) + 1, vbExclamation
             Exit Sub
         End If
     End If