From 6a65a4504eca6d9daf93e476c67565e527482323 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 14:40:00 +0900
Subject: [PATCH] Fix CSV line endings

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

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index 89f8d17..c39fc75 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -170,7 +170,7 @@ Sub ImportMasterDetailData()
         .Close
     End With
     
-    lines = Split(textContent, vbCrLf)
+    lines = Split(textContent, vbLf)
     
     ' === Validate CSV header ===
     If UBound(lines) >= 0 And Trim(lines(0)) <> "" Then
@@ -388,7 +388,7 @@ Sub ExportMasterDetailData()
     
     ' Use constant for header
     Dim csvContent As String
-    csvContent = CSV_HEADER & vbCrLf
+    csvContent = CSV_HEADER & vbLf
     
     ' Data: C,G,H,I,J,K,L,M,N,O,P (skip D,E,F)
     Dim r As Long
@@ -400,7 +400,7 @@ Sub ExportMasterDetailData()
             For j = 7 To 16
                 csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value)
             Next j
-            csvContent = csvContent & vbCrLf
+            csvContent = csvContent & vbLf
         End If
     Next r