VBA : save a file with UTF-8 without BOM

by

In the best of all possible worlds the Related list would contain a reference to this question which I found as the first hit for “vbscript adodb.stream bom vbscript site:stackoverflow.com”.

Based on the second strategy from boost’s answer:

Option Explicit

Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1
Const adTypeText   = 2

Dim objStreamUTF8      : Set objStreamUTF8      = CreateObject("ADODB.Stream")
Dim objStreamUTF8NoBOM : Set objStreamUTF8NoBOM = CreateObject("ADODB.Stream")

With objStreamUTF8
  .Charset = "UTF-8"
  .Open
  .WriteText "aÄö"
  .Position = 0
  .SaveToFile "toto.php", adSaveCreateOverWrite
  .Type     = adTypeText
  .Position = 3
End With

With objStreamUTF8NoBOM
  .Type    = adTypeBinary
  .Open
  objStreamUTF8.CopyTo objStreamUTF8NoBOM
  .SaveToFile "toto-nobom.php", adSaveCreateOverWrite
End With

objStreamUTF8.Close
objStreamUTF8NoBOM.Close

Evidence:

chcp
Active code page: 65001

dir
 ...
15.07.2015  18:48                 5 toto-nobom.php
15.07.2015  18:48                 8 toto.php

type toto-nobom.php
aÄö

More Related Contents:

  1. Is there a need to set Objects to Nothing
  2. VB6 pass by value and pass by reference
  3. VBScript – How to make program wait until process has finished?
  4. Loop through files in a folder using VBA?
  5. How to error handle 1004 Error with WorksheetFunction.VLookup?
  6. How can Excel VBA open file using default application
  7. How to compare two entire rows in a sheet
  8. Run same excel macro on multiple excel files
  9. how to detect whether VBA excel found something?
  10. Excel VBA: Can’t get a match, error “Unable to get the Match property of the WorksheetFunction class”
  11. When one should use Set [e.g for SpecialCells return value]?
  12. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  13. Is there a faster CountIF
  14. Excel VBA How to detect if something was pasted in a Worksheet
  15. Getting error Procedure too large in VBA Macros (Excel)
  16. How to add data validation to a cell using VBA
  17. Getting AD Details based on username
  18. How to do late binding in VBA?
  19. How to break long string to multiple lines
  20. How to copy a chart from Excel to PowerPoint?
  21. vba paste not working
  22. mac excel vba loop : from list & then export as pdf
  23. Can Advanced Filter criteria be in the VBA rather than a range?
  24. In Excel VBA, what is the way to check if the web page is fully loaded?
  25. Excel Useform: How to hide application but have icon in the taskbar
  26. Reading Web Pages using Excel VBA
  27. Excel VBA: auto click and open file from website
  28. How to have vba execute every 10 minutes?
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment