Saving a UTF-8 files without Byte Order Mark (BOM)

[KenCriss]

Hi folks - I use the code below to save a regular text file as a UTF-8 file. The code works great...except the application that needs the file does not allow the BOM (byte order mark) to be at the beginning of the file. So, in the end I need a UTF-8 text file that does not have the BOM on the beginning of the file.

Options
1) Add code to rewrite the first line of the file taking out the BOM (3 bytes?) and then save the file again.
2) Change below code to save the file as UTF-8 without BOM (I am told you can do this in Notepad ++ with the File/SaveAs command but I don't know how to do that in VBA).
3) Other?

Sub SaveAsUTF8(sFileToSave As String)
     
    Dim fsT, tFileToOpen, tFileToSave As String
     
    tFileToOpen = sFileToSave
    tFileToSave = sFileToSave
     
    tFileToOpenPath = tFileToOpen
    tFileToSavePath = tFileToSave
     
Set fsT = CreateObject("ADODB.Stream"): 'Create Stream object
fsT.Type = 2: 'Specify stream type – we want To save text/string data.
fsT.Charset = "utf-8": 'Specify charset For the source text data.
     
fsT.Open: 'Open the stream
fsT.LoadFromFile tFileToOpenPath: 'And write the file to the object stream
     
fsT.SaveToFile tFileToSavePath, 2: 'Save the data to the named path
     
End Sub

Thanks for any help

 

[xenou]

The trick seems to be converting the text stream to a binary stream before writing (excluding, of course, the first three bytes):
vbscript - Can I export excel data with UTF-8 without BOM? - Stack Overflow
vba_corner: Create csv Files with Quoted Values and UTF-8 Encoding for Android Apps

 

[joepublic]

Hello Mr KenCris,
I am also looking for a macro in VBA that save my excel sheet1 into a txt file ENCODED as: UTF-8 without BOM
I usually work with excel and have no much idea about macros in VBA, that's why I wonder if you have found any help or solution to your question.
Please I would be very gratefull if you could write the answer with the full code between Sub () and End Sub().

Let me know what libraries do I have to activate in excel.
Thanks Joe.