So exportieren Sie Excel in eine CSV-Datei mit "|" und UTF-8-Code

Ich musste Excel-Datei in CSV-Datei über VBA-Skript exportieren. csv-datei muss utf-8 code sein und "|"

Ich verwende SetLocaleInfo, um die Liste separat als "|" festzulegen, aber es wirkt sich nur auf "xlcsv" und nicht auf "xlunicodetext" aus.

Private Function SetLocalSetting(LC_CONST As Long, strSetting As String) As Boolean

    SetLocaleInfo GetUserDefaultLCID(), LC_CONST, strSetting

 End Function
 SetLocalSetting LOCALE_SLIST, "|"

Wenn "xlUnicodeText" verwendet werden soll, lautet der Code UTF-8, der Listentrenner lautet jedoch weiterhin "Tab".

.SaveAs filename:="C:\temp\1.csv", FileFormat:=xlUnicodeText, Local:=True

Wenn "xlCSV" verwendet werden soll, lautet der Listentrenner weiterhin "|" was ich brauche, aber codepage ist ANSI.

.SaveAs filename:="C:\temp\1.csv", FileFormat:=xlcsv, Local:=True

So exportieren Sie eine CSV-Datei mit "|" Trennzeichen und UTF-8?

Antworten auf die Frage(1)

Ihre Antwort auf die Frage