Inventaire des feuilles et inspection légère des classeurs

Cet article français présente Inventaire des feuilles et inspection légère des classeurs pour les équipes qui construisent des solutions avec Delphi, C++Builder, Lazarus/FPC et les composants losLab

L'accent est mis sur les choix pratiques, les pièges et les points de contrôle afin que la solution reste fiable en production

Décisions d'architecture

Inspectez les faits du package avant l'analyse complète : quels éléments faut-il connaître avant de charger tout le classeur, y compris la gestion des feuilles cachées, des feuilles très cachées, des feuilles graphiques et des types de feuilles non pris en charge

• which facts are required before full workbook load
• handling for hidden sheets, very hidden sheets, chart sheets, and unsupported sheet types
• maximum package size, sheet count, and intake timeout
• routing rules for files that only need metadata versus full calculation

Parcours d'implémentation

Servez-vous de l'inventaire des feuilles comme d'un point de tri d'entrée. L'ordre ci-dessous garde le flux lisible pour les équipes Delphi et C++Builder

1. open the workbook in an inspection path that avoids unnecessary cell materialization
2. read format, package metadata, sheet list, visibility, and rough dimensions
3. classify the workbook as preview, audit, convert, reject, or full-load
4. show sheet inventory to operators when routing depends on workbook structure
5. log inspection facts before deeper processing mutates state

Preuves de validation

Conservez des preuves d'inspection pour les décisions de routage. Gardez ces champs avec la sortie ou le dossier de support

• format, file size, sheet count, sheet order, visibility, and sheet type
• metadata such as creator, modified time, and application when available
• routing result and reason based on lightweight facts
• warnings for encrypted, damaged, macro-enabled, or oversized packages

Triage should be cheap and trustworthy

Une étape d'inspection légère doit relever le format du classeur, les noms de feuilles, leur visibilité, leur ordre, leurs types, les dimensions lorsqu'elles sont disponibles, et les avertissements au niveau du package. Ces informations suffisent à orienter de nombreux fichiers avant un traitement plus profond

Notes d'implémentation en production

Traitez l'inventaire des feuilles et l'inspection légère des classeurs avec HotXLS comme un contrat de service explicite autour des appels HotXLS, en séparant validation d'entrée, écriture du classeur, contrôle de sortie et preuves de support

• Définir la source de données, les plages de cellules et le format de sortie avant de créer le classeur
• Consigner le nombre de lignes, les feuilles, les avertissements et le chemin de sortie dans une trace relisible
• Encapsuler les détails applicatifs dans des helpers testables plutôt que dans des événements UI
• Rouvrir ou inspecter le fichier enregistré avant livraison à un autre système ou au client

Défaillances à répéter en test

• Un SaveAs réussi ne prouve pas que le contrat métier est respecté
• Polices, droits et paramètres régionaux peuvent différer entre serveur et poste de développement
• Les journaux ne doivent exposer ni mots de passe, ni données client, ni liens internes

Exemple Delphi détaillé

L'exemple Delphi suivant montre une frontière de service pratique pour ce sujet, avec politiques, journalisation et validation dans une couche testable

procedure WriteWorkbookInspectionIndex(const SourceFile, OutputFile: string);
var
  Wb: TXLSXWorkbook;
  IndexSheet: IXLSWorksheet;
  Sh: IXLSWorksheet;
  SheetIndex: Integer;
  RowIndex: Integer;
begin
  RequireFileExists(SourceFile);
  Wb := TXLSXWorkbook.Create;
  try
    Wb.Open(SourceFile);
    IndexSheet := AddWorksheet(Wb, 'Inspection Index');
    WriteHeaderRow(IndexSheet, ['No', 'Sheet', 'UsedRange', 'FormulaCells', 'Warnings']);

    RowIndex := 2;
    for SheetIndex := 0 to Wb.Sheets.Count - 1 do
    begin
      Sh := Wb.Sheets[SheetIndex];
      IndexSheet.Range['A' + IntToStr(RowIndex)].Value := SheetIndex + 1;
      IndexSheet.Range['B' + IntToStr(RowIndex)].Value := Sh.Name;
      IndexSheet.Range['C' + IntToStr(RowIndex)].Value := GetUsedRangeAddress(Sh);
      IndexSheet.Range['D' + IntToStr(RowIndex)].Value := CountFormulaCells(Sh);
      IndexSheet.Range['E' + IntToStr(RowIndex)].Value := BuildSheetWarnings(Sh);
      Inc(RowIndex);
    end;

    AddAutoFilterToHeader(IndexSheet, 'A1:E' + IntToStr(RowIndex - 1));
    WriteInspectionAudit(Wb, SourceFile, RowIndex - 2);

    if Wb.SaveAs(OutputFile) <> 1 then
      RaiseWorkbookSaveError(OutputFile);
  finally
    Wb.Free;
  end;
end;

Liste de mise en production

• Run the workflow on an empty workbook, a normal customer workbook, and a worst-case workbook
• Open the output with the target spreadsheet application or downstream importer
• Log product version, template version, profile, row count, output path, elapsed time, and warning count
• Keep passwords, temporary files, customer data, and support bundles under explicit retention rules
• Add regression workbooks when a customer file exposes a new edge case

Documentation produit

HotXLS Component

Exemples de code supplémentaires

type
  TIntakeRoute = (irNormal, irNeedsPassword, irUnreadable);

function ClassifyUpload(const FileName: string; Names: TStrings): TIntakeRoute;
var
  Book: TXLSXWorkbook;
begin
  Book := TXLSXWorkbook.Create;
  try
    // Encrypted OOXML is an OLE container, not a zip: check first,
    // because the listing calls cannot look inside it.
    if Book.CanReadEncrypted(FileName) then
      Exit(irNeedsPassword);
    if SameText(ExtractFileExt(FileName), '.ods') then
    begin
      if Book.GetODSSheetNames(FileName, Names) <= 0 then
        Exit(irUnreadable);
    end
    else if Book.GetSheetNames(FileName, Names) <= 0 then
      Exit(irUnreadable);
    Result := irNormal;
  finally
    Book.Free;
  end;
end;