Delphi DLL

XLSX Get Sheet Names

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringTable, Zip, Csv;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
zip: HCkZip;
csv: HCkCsv;
sheetNames: HCkStringTable;
i: Integer;

begin
success := False;

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

// .xlsx files are Zip archives
zip := CkZip_Create();
success := CkZip_OpenZip(zip,'qa_data/excel/fakeCompanies.xlsx');
if (success = False) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

csv := CkCsv_Create();
sheetNames := CkStringTable_Create();
success := CkCsv_XlsxGetSheets(csv,zip,sheetNames);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCsv__lastErrorText(csv));
    Exit;
  end;

i := 0;
while i < CkStringTable_getCount(sheetNames) do
  begin
    Memo1.Lines.Add(CkStringTable__stringAt(sheetNames,i));
    i := i + 1;
  end;

CkZip_Dispose(zip);
CkCsv_Dispose(csv);
CkStringTable_Dispose(sheetNames);

end;