From 4171dade71981edf1afdc79e51986cbe37bfff36 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 19:16:07 +0900
Subject: [PATCH] Remove header from Z1 export

---
 vba_code_kotsu_master.bas | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

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