Trim trailing newlines before write

2026-04-13 15:19:22 +09:00
parent 7debd7bbc5
commit 6c6b49b919
1 changed files with 5 additions and 0 deletions
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -416,6 +416,11 @@ Sub ExportMasterDetailData()
        End If
    Next r
    
+    ' Trim trailing empty lines
+    Do While Right(csvContent, 1) = vbLf
+        csvContent = Left(csvContent, Len(csvContent) - 1)
+    Loop
+    
    ' Write file
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")