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

Fix Z1 export to match import - C to I

Browse Source
This commit is contained in:
updsv7
2026-04-13 19:24:40 +09:00
parent 4171dade71
commit 285822a695
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
vba_code_kotsu_master.bas
View File

@@ -70,14 +70,17 @@ Sub Z1_ExportMasterDetailData()
savePath = GetSaveCSVPath() savePath = GetSaveCSVPath()
If savePath = "" Then Exit Sub If savePath = "" Then Exit Sub
' Build data rows (no header) ' Build data rows (no header) - CSV 1-7 = C-I
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
rowCount = rowCount + 1 rowCount = rowCount + 1
csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value) For j = 3 To 9
For j = 9 To 18 If j = 3 Then
csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value) csvContent = csvContent & CleanCSVField(ws.Cells(r, j).Value)
Else
csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value)
End If
Next j Next j
csvContent = csvContent & vbLf csvContent = csvContent & vbLf
End If End If