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