«
»

VBA – write to UTF file (with BOM)

Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Charset = "UTF-8"
objStream.Position = 0
objStream.WriteText sTxt
objStream.SaveToFile sFileName, 2
objStream.Close

This entry was posted on Tuesday, July 14th, 2009 at 7:31 am and is filed under VBA. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Leave a Reply