Hallo zusammen .
Ich habe mein Tool echt hard codiert . Also ich brauche alle .csv dateien to .csv mit UTF-8 code konvertieren bzw umwadneln .
Nicht einzeln, so wie ich jetzt habe, sodern alle files, die in "csv1" ornder sind, müssen konvertiert und gespreichert werden.
Wie kann ich es am bestens machen ?
Mein VBA code :
Public Sub convert_UnicodeToUTF8()
Dim parF1, parF2 As String
parF1 = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"
parF2 = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"
Const adSaveCreateOverWrite = 2
Const adTypeText = 2
Dim StreamSrc, streamDst ' Source / Destination
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
Call csvToxlsx
End Sub
|