Public Sub convert_UnicodeToUTF8()
Dim parF1, parF2 As String
Dim Pfad As String
Dim DateiName As String
Pfad = ThisWorkbook.Path & "\"
DateiName = Dir(ThisWorkbook.Path & "\" & "*.csv")
parF1 = Dir(Pfad & "*.csv")
Do While DateiName <> ""
Debug.Print Pfad & parF1, parF2
parF1 = Pfad & parF1
parF2 = parF1
Const adSaveCreateOverWrite = 2
Const adTypeText = 2
Dim StreamSrc, streamDst
Set StreamSrc = CreateObject("ADODB.Stream")
Set streamDst = CreateObject("ADODB.Stream")
streamDst.Type = adTypeText
streamDst.Charset = "UTF-8"
streamDst.Open
With StreamSrc
.Type = adTypeText
.Charset = "UTF-8"
.Open
.LoadFromFile parF1
.CopyTo streamDst
.Close
End With
streamDst.SaveToFile parF2, adSaveCreateOverWrite
streamDst.Close
Set StreamSrc = Nothing
Set streamDst = Nothing
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
DateiName = Dir$()
Loop
End Sub