Fix NULL value filter in export

This commit is contained in:
updsv7
2026-04-13 15:08:10 +09:00
parent 422e8c5934
commit d2e1a4335d

View File

@@ -393,7 +393,7 @@ Sub ExportMasterDetailData()
' Data: C,G,H,I,J,K,L,M,N,O,P (skip D,E,F)
Dim r As Long
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
csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value)
' CSV col2-11 -> G-P column