(Excel) Create CSV File

Demonstrates how to create a new CSV file with some simple content.

Download Excel Class Modules Chilkat Excel Class Modules

' This sample code creates a new CSV file (sample.csv)
' that contains this content:
' 
' year,color,country,food
' 2001,red,France,cheese
' 2005,blue,"United States",hamburger

Dim csv As Chilkat.Csv
Set csv = Chilkat.NewCsv

' Indicate that the 1st row
' should be treated as column names:
csv.HasColumnNames = True


success = csv.SetColumnName(0,"year")
success = csv.SetColumnName(1,"color")
success = csv.SetColumnName(2,"country")
success = csv.SetColumnName(3,"food")

success = csv.SetCell(0,0,"2001")
success = csv.SetCell(0,1,"red")
success = csv.SetCell(0,2,"France")
success = csv.SetCell(0,3,"cheese")

success = csv.SetCell(1,0,"2005")
success = csv.SetCell(1,1,"blue")
success = csv.SetCell(1,2,"United States")
success = csv.SetCell(1,3,"hamburger")

' Write the CSV to a string and display:

csvDoc = csv.SaveToString()
Debug.Print csvDoc

' Save the CSV to a file:
success = csv.SaveFile("out.csv")
If (success <> True) Then
    Debug.Print csv.LastErrorText
End If