Remove header from Z1 export

2026-04-13 19:16:07 +09:00
parent ac1d6deb87
commit 4171dade71
1 changed files with 1 additions and 8 deletions
--- 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