From 285822a6952797ce2be6b147c0d5a9cd57439d22 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 19:24:40 +0900
Subject: [PATCH] Fix Z1 export to match import - C to I

---
 vba_code_kotsu_master.bas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/vba_code_kotsu_master.bas b/vba_code_kotsu_master.bas
index 39f8182..644d86c 100644
--- a/vba_code_kotsu_master.bas
+++ b/vba_code_kotsu_master.bas
@@ -70,14 +70,17 @@ Sub Z1_ExportMasterDetailData()
     savePath = GetSaveCSVPath()
     If savePath = "" Then Exit Sub
     
-    ' Build data rows (no header)
+    ' Build data rows (no header) - CSV 1-7 = C-I
     rowCount = 0
     For r = 7 To lastDataRow
         If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then
             rowCount = rowCount + 1
-            csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value)
-            For j = 9 To 18
-                csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value)
+            For j = 3 To 9
+                If j = 3 Then
+                    csvContent = csvContent & CleanCSVField(ws.Cells(r, j).Value)
+                Else
+                    csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value)
+                End If
             Next j
             csvContent = csvContent & vbLf
         End If