updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove header from Z1 export

Browse Source
This commit is contained in:
updsv7
2026-04-13 19:16:07 +09:00
parent ac1d6deb87
commit 4171dade71
1 changed files with 1 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
vba_code_kotsu_master.bas
View File

@@ -70,14 +70,7 @@ Sub Z1_ExportMasterDetailData()
savePath = GetSaveCSVPath() savePath = GetSaveCSVPath()
If savePath = "" Then Exit Sub If savePath = "" Then Exit Sub
' Build header from row 5 ' Build data rows (no header)
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
rowCount = 0 rowCount = 0
For r = 7 To lastDataRow For r = 7 To lastDataRow
If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then