Office: Export als UTF-8 csv

feliweb · 13. Dezember 2016

Hallo,

ich habe Exceldateien, die ich in UTF-8 csv konvertieren muss.

Ich habe gefühlt das ganze Internet durchsucht und kein Code gefunden, der mir weiterhilft.

Bisher bringe ich die Exceldatei "Export" mit folgendem Code in csv, allerdings mit Ansi Coding:

Code:

Private Sub cb_SaveExport_Click()
Call Vars
Dim strMappenpfad As String

strMappenpfad = sPfad & "Export.xlsx"
Workbooks.Open (strMappenpfad)
ActiveWorkbook.SaveAs fileName:=Replace(strMappenpfad, ".xlsx", "") & Format(Date, "yyyyMMdd") & Format(Time, "HHMMSS") & ".csv", _
FileFormat:=xlCSV, local:=True
ActiveWorkbook.Close Savechanges:=False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gibt es eine Lösung zur Weiterverarbeitung in eine UTF-8 csv?

Ich könnte natürlich auch den dreckigen Weg gehen und jede Datei im Editor öffnen und als Coding UTF-8 einstellen. Das will ich aber eigentlich nicht...

VG

Feli

:)

CruelDevice · 15. Dezember 2016

Guten Morgen Feli,

Vielleicht mit folgender Vorgehensweise:
Erst die Exceldatei als "normale" CSV abspeichern, anschließend mit diesem Makro in UTF-8 konvertieren.

Code:

Sub SaveAsUTF8()
Dim fsT As Object
Dim tFileToOpen As String
Dim tFileToSave As String

tFileToOpen = "C:tempTestfile.txt"
tFileToSave = "C:tempTestfile_UTF8.txt"

Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2
fsT.Charset = "utf-8"

fsT.Open:
fsT.LoadFromFile tFileToOpen
fsT.SaveToFile tFileToSave, 2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da muss natürlich noch Fehlerbehandlung ergänzt werden; und die Objekte "ordentlich wegräumen"

Viele Grüße,
Michael

feliweb · 16. Dezember 2016

Hey Michael,

VIELEN DANK!!

Funktioniert einwandfrei.

VG und ein schönes Wochenende

feliweb · 19. Dezember 2016

Hi,

es gibt doch ein Problem mit deinem Code.

er macht z.B. aus defénse -> d馥nse

Eigentlich sollte das nicht passieren, oder?

mumpel · 19. Dezember 2016

Hallo!

Option Private Module
Option Explicit

Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

Sub UTF8Output(Datei As String, t As String, Optional BOM As Boolean = False)

Dim tmp() As Byte, l As Long, FF As Integer

If Len(Datei) = 0 Or Len(t) = 0 Then Exit Sub
l = WideCharToMultiByte(65001, 0, _
StrPtr(t), Len(t), 0, 0, 0, 0)
Redim tmp(0 To l - 1)

WideCharToMultiByte 65001, 0, StrPtr(t), Len(t), _
VarPtr(tmp(0)), l, 0, 0
FF = FreeFile
Open Datei For Output As #FF
Close #FF
FF = FreeFile
Open Datei For Binary As #FF
Put #FF, , tmp
Close #FF

End Sub

Sub Test()

UTF8Output "C:/Test.txt", "ÄÖÜßäöü"

End Sub

Lukas Mosimann. Projektbetreuung:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

feliweb · 20. Dezember 2016

Hey,

Danke, aber wenn ich die csv steht darin nur "ÄÖÜßäöü". Muss ich da noch etwa anderes machen?

VG

CruelDevice · 20. Dezember 2016

Moin Feli,

hatte ein langes Wochenende, daher erst jetzt 'ne Antwort.
"Meinen" Code hatte ich selbst nur gefunden und kurz getestet - dabei habe ich keine Fehler festgestellt.
Vielleicht stellst Du eine Beispieldatei zur Verfügung, macht die Fehlersuche einfacher.
Zu Renés Code kann ich nicht viel sagen, aber wenn Du den verwendest musst Du natürlich deinen Input verwenden, nicht die bereitgestellte Test-Sub *wink.gif*

Viele Grüße,
Michael

Office: Export als UTF-8 csv

Export als UTF-8 csv

Export als UTF-8 csv

Export als UTF-8 csv

Export als UTF-8 csv - Similar Threads - Export UTF csv

Makros für csv-Export mit Anführungszeichen für ausgewählte Splaten

Export-Makro überschreibt .xlsx-Dateien nur taggleich

Export als Textdatei in UTF-8

Export CSV - Laufzeitfehler 3625

Outlook Export Assistent funktioniert nicht mehr

Fehler beim Export in eine PDF

Export als Unicode UTF-8 speichern