(DataFlex) XLSX Get Sheet Names

Open an Excel spreadsheet (.xlsx) and get the names of the sheets.

Note: This example requires Chilkat v11.3.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vZip
    Handle hoZip
    Handle hoCsv
    Variant vSheetNames
    Handle hoSheetNames
    Integer i
    String sTemp1

    Move False To iSuccess

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

    // .xlsx files are Zip archives
    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End
    Get ComOpenZip Of hoZip "qa_data/excel/fakeCompanies.xlsx" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatCsv)) To hoCsv
    If (Not(IsComObjectCreated(hoCsv))) Begin
        Send CreateComObject of hoCsv
    End
    Get Create (RefClass(cComChilkatStringTable)) To hoSheetNames
    If (Not(IsComObjectCreated(hoSheetNames))) Begin
        Send CreateComObject of hoSheetNames
    End
    Get pvComObject of hoZip to vZip
    Get pvComObject of hoSheetNames to vSheetNames
    Get ComXlsxGetSheets Of hoCsv vZip vSheetNames To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCsv To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move 0 To i
    While (i < (ComCount(hoSheetNames)))
        Get ComStringAt Of hoSheetNames i To sTemp1
        Showln sTemp1
        Move (i + 1) To i
    Loop



End_Procedure