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

Fix NULL value filter in export

Browse Source
This commit is contained in:
updsv7
2026-04-13 15:08:10 +09:00
parent 422e8c5934
commit d2e1a4335d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
vba_code_kukan_detail_master.txt
View File

@@ -393,7 +393,7 @@ Sub ExportMasterDetailData()
' Data: C,G,H,I,J,K,L,M,N,O,P (skip D,E,F) ' Data: C,G,H,I,J,K,L,M,N,O,P (skip D,E,F)
Dim r As Long Dim r As Long
For r = 7 To lastDataRow For r = 7 To lastDataRow
If Trim(ws.Cells(r, 3).Value) <> "" Then If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then
' CSV col1 -> C column ' CSV col1 -> C column
csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value) csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value)
' CSV col2-11 -> G-P column ' CSV col2-11 -> G-P column