diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 89f8d17..c39fc75 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -170,7 +170,7 @@ Sub ImportMasterDetailData() .Close End With - lines = Split(textContent, vbCrLf) + lines = Split(textContent, vbLf) ' === Validate CSV header === If UBound(lines) >= 0 And Trim(lines(0)) <> "" Then @@ -388,7 +388,7 @@ Sub ExportMasterDetailData() ' Use constant for header Dim csvContent As String - csvContent = CSV_HEADER & vbCrLf + csvContent = CSV_HEADER & vbLf ' Data: C,G,H,I,J,K,L,M,N,O,P (skip D,E,F) Dim r As Long @@ -400,7 +400,7 @@ Sub ExportMasterDetailData() For j = 7 To 16 csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value) Next j - csvContent = csvContent & vbCrLf + csvContent = csvContent & vbLf End If Next r