Code: Select all
Sub MyTest()
Dim myStrm As Object, objStream As Object, sFolder As String, txt As String
sFolder = ThisWorkbook.Path & "\"
Set myStrm = CreateObject("ADODB.Stream")
With myStrm
.Type = 2
.Charset = "UTF-8"
.Open
.LoadFromFile sFolder & "Output.csv"
txt = .ReadText
End With
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Charset = "UTF-8"
.Open
.WriteText txt
.SaveToFile sFolder & "OutputNew.csv", adSaveCreateOverWrite
End With
End Sub