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

Trim trailing newlines before write

Browse Source
This commit is contained in:
updsv7
2026-04-13 15:19:22 +09:00
parent 7debd7bbc5
commit 6c6b49b919
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
vba_code_kukan_detail_master.txt
View File

@@ -416,6 +416,11 @@ Sub ExportMasterDetailData()
End If End If
Next r Next r
' Trim trailing empty lines
Do While Right(csvContent, 1) = vbLf
csvContent = Left(csvContent, Len(csvContent) - 1)
Loop
' Write file ' Write file
Dim stream As Object Dim stream As Object
Set stream = CreateObject("ADODB.Stream") Set stream = CreateObject("ADODB.Stream")