From 6c6b49b919cd4c1c491c5720b00875af78499bc3 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 15:19:22 +0900 Subject: [PATCH] Trim trailing newlines before write --- vba_code_kukan_detail_master.txt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index b73c99b..cfac9de 100644 --- 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")