VBScript

Write utf-8 CSV Compatible with Excel

See more CSV Examples

A CSV containing non-English characters that is saved using the utf-8 character encoding must include a BOM (also known as a preamble) if it is to be correctly loaded into Excel. See https://en.wikipedia.org/wiki/Byte_order_mark

This example shows how to save the CSV to a file using utf-8 with a BOM.

Note: This example requires Chilkat v9.5.0.93 or later.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example program loads a file (japanese.csv)
' that contains this content:
' 
' year,color,country,food
' 2001,red,France,cheese
' 2005,blue,"United States",hamburger
' 2008,green,Italy,pasta
' 1998,orange,Japan,sushi
' 2010,silver,"太志","森田"
' 

set csv = CreateObject("Chilkat.Csv")
csv.HasColumnNames = 1
success = csv.LoadFile2("qa_data/csv/test.csv","utf-8")
If (success <> 1) Then
    outFile.WriteLine(csv.LastErrorText)
    WScript.Quit
End If

' To save the CSV using utf-8 with a BOM/preamble, 
' add "EMIT_BOM" to the UncommonOptions.
' (This feature was added in Chilkat v9.5.0.93)

csv.UncommonOptions = "EMIT_BOM"
success = csv.SaveFile2("qa_output/test.csv","utf-8")
If (success <> 1) Then
    outFile.WriteLine(csv.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("OK, try to load the CSV in Excel to see if the non-English chars are correct.")

outFile.Close