Documentación de HotXLS

Método AddTable

Adjunta una Tabla BIFF8 (ListObject de Excel) a un rango de celdas, devolviendo el nuevo objeto TXLSTable para que se puedan ajustar propiedades adicionales (StyleName, indicadores de filas con bandas, TotalsRowShown) antes de guardar TXLSXWorksheet.AddTable en el lado XLSX, de modo que el código agnóstico al formato pueda llamar a la misma firma. (Disponible desde v2.33.0.)

Sintaxis

function AddTable(const AName, ARange: WideString; AColumns: TStrings): TXLSTable;
ANameWideString. El nombre de la tabla con referencia estructurada que se muestra en el cuadro de nombres de Excel, por ejemplo 'SalesTable'. Se convierte en Name y DisplayName del objeto devuelto 'SalesTable'. Becomes both Name and DisplayName on the returned object
ARangeWideString. El rango de celdas que cubre la Table en notación A1, p. ej. 'A1:D10'WideString. El rango de celdas que cubre la Table en notación A1, por ejemplo 'A1:D10'. La primera fila del rango se trata como fila de encabezado
AColumnsTStrings. Texto de encabezado por columna. Debe contener exactamente tantas entradas como ancho tenga el rango

Observaciones

La nueva tabla se agrega a la colección Tables de la hoja de cálculo. Su StyleName predeterminado es 'TableStyleMedium2' y ShowRowStripes predeterminado es True, lo que coincide con lo que producen Excel y XLSX

BIFF8 emite el grupo de registros FEATHEADR11 / FEAT11 / LIST12 solo en SaveAs(xlExcel97). Los guardados en BIFF5 no se ven afectados (las tablas son un concepto de BIFF8+). El registro LIST12 almacena StyleName y las marcas de filas / columnas con bandas usando el diseño de cliente de estilo de tabla de MS-XLS. A partir de la v2.33.2, a nivel de hoja, los AUTOFILTERINFO BIFF8 emite el grupo de registros FEATHEADR11 / FEAT11 / LIST12 solo con AUTOFILTER . Las operaciones de guardado en BIFF5 no se ven afectadas (las Tablas son un concepto BIFF8+)

Ejemplo

Este ejemplo escribe una región de ventas de cuatro columnas vinculada como Tabla en A1:D10

var
  cols: TStringList;
begin
  cols := TStringList.Create;
  try
    cols.Add('Region');
    cols.Add('Product');
    cols.Add('Quarter');
    cols.Add('Revenue');
    Sheet.AddTable('SalesTable', 'A1:D10', cols);
  finally
    cols.Free;
  end;

Véase también