(Visual Basic 6.0) Create CSV File

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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 New ChilkatCsv

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

Dim success As Long
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:
Dim csvDoc As String
csvDoc = csv.SaveToString()
Debug.Print csvDoc

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