Tcl

XLSX Convert Sheet to CSV

Open an Excel spreadsheet (.xlsx) and loads a sheet into a CSV object. Tcl

load ./chilkat.dll

set success 0

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# .xlsx files are Zip archives
set zip [new_CkZip]

set success [CkZip_OpenZip $zip "qa_data/excel/fakeCompanies.xlsx"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

set csv [new_CkCsv]

set sheetNames [new_CkStringTable]

set success [CkCsv_XlsxGetSheets $csv $zip $sheetNames]
if {$success == 0} then {
    puts [CkCsv_lastErrorText $csv]
    delete_CkZip $zip
    delete_CkCsv $csv
    delete_CkStringTable $sheetNames
    exit
}

if {[CkStringTable_get_Count $sheetNames] == 0} then {
    puts "There are no sheets in the .xlsx"
    delete_CkZip $zip
    delete_CkCsv $csv
    delete_CkStringTable $sheetNames
    exit
}

# Get the name of the 1st sheet.
set sheetName [CkStringTable_stringAt $sheetNames 0]

# Load the 1st sheet into the CSV.
# We could've also loaded the 1st sheet by passing an empty string for the sheet name.
set success [CkCsv_XlsxLoadSheet $csv $zip $sheetName]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    delete_CkCsv $csv
    delete_CkStringTable $sheetNames
    exit
}

# The Chilkat CSV API can now be used to read, modify, or insert cells.
# ...
# ...

set csvStr [CkCsv_saveToString $csv]
puts "$csvStr"

# Sample output:
# CompanyName,Address,City,State,Zip,Phone
# Acme Innovations LLC,7428 Westbrook Blvd,Oak Bend,IL,60514,630-555-2398
# BlueHorizon Data Systems,1850 Crestline Park Suite 210,Rivergate,CA,92814,714-555-8821
# Pinnacle Manufacturing Corp,3912 Industrial Loop,Maple Ridge,TX,77301,281-555-4477
# Evergreen Analytics Inc,1250 Highland Terrace,Stonefield,WA,98290,425-555-9914
# NovaTech Solutions Group,578 Marketview Drive,Clearwater,FL,33760,727-555-6032

# Save to a .csv file.
set success [CkCsv_SaveFile2 $csv "c:/temp/qa_output/fakeCompanies.csv" "utf-8"]
if {$success == 0} then {
    puts [CkCsv_lastErrorText $csv]
    delete_CkZip $zip
    delete_CkCsv $csv
    delete_CkStringTable $sheetNames
    exit
}


delete_CkZip $zip
delete_CkCsv $csv
delete_CkStringTable $sheetNames