PowerBuilder

XLSX Convert Sheet to CSV

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

integer li_rc
integer li_Success
oleobject loo_Zip
oleobject loo_Csv
oleobject loo_SheetNames
string ls_SheetName
string ls_CsvStr

li_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
loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Zip.OpenZip("qa_data/excel/fakeCompanies.xlsx")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

loo_Csv = create oleobject
li_rc = loo_Csv.ConnectToNewObject("Chilkat.Csv")

loo_SheetNames = create oleobject
li_rc = loo_SheetNames.ConnectToNewObject("Chilkat.StringTable")

li_Success = loo_Csv.XlsxGetSheets(loo_Zip,loo_SheetNames)
if li_Success = 0 then
    Write-Debug loo_Csv.LastErrorText
    destroy loo_Zip
    destroy loo_Csv
    destroy loo_SheetNames
    return
end if

if loo_SheetNames.Count = 0 then
    Write-Debug "There are no sheets in the .xlsx"
    destroy loo_Zip
    destroy loo_Csv
    destroy loo_SheetNames
    return
end if

// Get the name of the 1st sheet.
ls_SheetName = loo_SheetNames.StringAt(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.
li_Success = loo_Csv.XlsxLoadSheet(loo_Zip,ls_SheetName)
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_Csv
    destroy loo_SheetNames
    return
end if

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

ls_CsvStr = loo_Csv.SaveToString()
Write-Debug ls_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.
li_Success = loo_Csv.SaveFile2("c:/temp/qa_output/fakeCompanies.csv","utf-8")
if li_Success = 0 then
    Write-Debug loo_Csv.LastErrorText
    destroy loo_Zip
    destroy loo_Csv
    destroy loo_SheetNames
    return
end if



destroy loo_Zip
destroy loo_Csv
destroy loo_SheetNames