VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
UTF8 mit BOM	26.06.2023 15:38:49	Eric Schäfer
UTF8 mit BOM	26.06.2023 17:25:15	Gast01
UTF8 mit BOM	27.06.2023 13:46:12	Eric Schäfer
UTF8 mit BOM	27.06.2023 09:50:04	Der Steuerfuzzi
UTF8 mit BOM	27.06.2023 10:21:08	Der Steuerfuzzi
UTF8 mit BOM	27.06.2023 13:41:18	Eric Schäfer
UTF8 mit BOM	27.06.2023 13:43:29	Eric Schäfer

Ansicht des Beitrags:

Von:
Gast01

Datum:
26.06.2023 17:25:15

Views:
304

Rating:

Antwort:

Thema:
UTF8 mit BOM

Hallo,

dafür nimmt man ein ADODB.Stream-Object. Gefunden bei https://stackoverflow.com/questions/2524703/save-text-file-utf-8-encoded-with-vba

Sub convertTxttoUTF(sInFilePath As String, sOutFilePath As String)
    Dim objStreamUTF8  As Object
    Dim objStreamUTF8NoBOM  As Object
    Dim iFile       As Double
    Dim sFileData   As String
    
    Const adSaveCreateOverWrite = 2
    Const adTypeBinary = 1
    Const adTypeText = 2
    
    'Init
    iFile = FreeFile
    Open sInFilePath For Input As #iFile
        sFileData = Input(LOF(iFile), iFile)
    Close iFile
    
    'Open files
    Set objStreamUTF8 = CreateObject("ADODB.Stream")
    Set objStreamUTF8NoBOM = CreateObject("ADODB.Stream")
           
    ' wrute the fules       
    With objStreamUTF8
      .Charset = "UTF-8"
      .Open
      .WriteText sFileData
      .Position = 0
      .SaveToFile sOutFilePath, adSaveCreateOverWrite
      .Type = adTypeText
      .Position = 3
    End With
    
    With objStreamUTF8NoBOM
      .Type = adTypeBinary
      .Open
      objStreamUTF8.CopyTo objStreamUTF8NoBOM
      .SaveToFile sOutFilePath, 2
    End With
    
    ' close the files
    objStreamUTF8.Close
    objStreamUTF8NoBOM.Close
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
UTF8 mit BOM	26.06.2023 15:38:49	Eric Schäfer
UTF8 mit BOM	26.06.2023 17:25:15	Gast01
UTF8 mit BOM	27.06.2023 13:46:12	Eric Schäfer
UTF8 mit BOM	27.06.2023 09:50:04	Der Steuerfuzzi
UTF8 mit BOM	27.06.2023 10:21:08	Der Steuerfuzzi
UTF8 mit BOM	27.06.2023 13:41:18	Eric Schäfer
UTF8 mit BOM	27.06.2023 13:43:29	Eric Schäfer