Clase ListObject (Excel VBA)

La clase ListObject representa un objeto de lista que hay en la colección**ListObjects**.

Los principales procedimientos de la clase ListObject son Delete y ListObjects.Add

Set

Para usar una variable de clase ListObject, primero debe ser instanciado, por ejemplo

Dim lstobj as ListObject
Set lstobj = ActiveCell.ListObject

Los siguientes procedimientos se pueden usar para establecer variables de clase ListObject : ListObjects.Item, ListObjects.Add, QueryTable.ListObject, Range.ListObject, SlicerCache.ListObject, TableObject.ListObject y Worksheet.ListObjects

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ListObject en una colección.

Dim lstobj As ListObject
For Each lstobj In Application.ListObjects
	
Next lstobj

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Display/Show with its procedures DisplayName, DisplayRightToLeft, ShowHeaders y ShowTotals
Row with its procedures HeaderRowRange, InsertRowRange, ListRows y TotalsRowRange

Métodos

Los principales métodos de la clase ListObject son

Delete - Elimina el objeto ListObject y borra los datos de celda de la hoja de cálculo.

ActiveCell.ListObject.Delete

ListObjects.Add - Crea un nuevo objeto de lista.

Dim lstobj As ListObject
Set lstobj = ActiveSheet.ListObjects.Add

Otros Métodos

ExportToVisio - Exporta un objeto ListObject a Visio.

Publish - Publica el objeto ListObject en un servidor que ejecuta Microsoft SharePoint Foundation.

Refresh - Recupera los datos y el esquema actuales de la lista desde el servidor que ejecuta Microsoft SharePoint Foundation.

Resize - El método Resize permite cambiar el tamaño de un objeto ListObject sobre un nuevo intervalo.

Unlink - Elimina de una lista el vínculo a un sitio de Microsoft SharePoint Foundation.

Unlist - Elimina la funcionalidad de lista de un objeto ListObject.

Propiedades

Active Devuelve un valor Boolean que indica si un objeto ListObject de una hoja de cálculo está activo, es decir, si la celda activa está dentro del rango del objeto ListObject .

Dim booActive As Boolean
booActive = ActiveCell.ListObject.Active

AlternativeText Devuelve o establece la cadena de texto descriptivo (alternativa) para la tabla especificada.

ActiveCell.ListObject.AlternativeText =

AutoFilter Filtra una tabla mediante la característica autoFiltro.

Dim afrAutoFilter As AutoFilter
Set afrAutoFilter = ActiveCell.ListObject.AutoFilter

Comment Devuelve o establece el comentario asociado con el objeto de lista.

ActiveCell.ListObject.Comment =

DataBodyRange Devuelve un objeto Range que representa el rango de valores, excluida la fila de encabezado, en una tabla.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.DataBodyRange

ListColumns Devuelve una colección ListColumns que representa todas las columnas de un objeto ListObject .

Dim lcsListColumns As ListColumns
Set lcsListColumns = ActiveCell.ListObject.ListColumns

Name Devuelve o establece un valor de tipo String que representa el nombre del objeto ListObject .

ActiveCell.ListObject.Name =

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.ListObject.Parent

QueryTable Devuelve el objeto QueryTable que proporciona un vínculo para el objeto ListObject al servidor de listas.

Dim qrytblQueryTable As QueryTable
Set qrytblQueryTable = ActiveCell.ListObject.QueryTable

Range Devuelve un objeto Range que representa el rango al que se aplica el objeto de lista especificado en la lista.

Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.Range

SharePointURL Devuelve una cadena que representa la dirección URL de la lista de SharePoint para un objeto ListObject dado.

Dim strSharePointURL As String
strSharePointURL = ActiveCell.ListObject.SharePointURL

ShowAutoFilter Devuelve un objeto de tipo Boolean que indica si se mostrará el autofiltro.

ActiveCell.ListObject.ShowAutoFilter = True

ShowAutoFilterDropDown True cuando se muestra la lista desPlegable Autofiltro del objeto ListObject .

ActiveCell.ListObject.ShowAutoFilterDropDown = True

ShowTableStyleColumnStripes Devuelve o establece si se utiliza el estilo de tabla Bandas de columnas para el objeto ListObject especificado.

ActiveCell.ListObject.ShowTableStyleColumnStripes = True

ShowTableStyleFirstColumn Devuelve o establece si se aplica formato a la primera columna para el objeto ListObject especificado.

ActiveCell.ListObject.ShowTableStyleFirstColumn = True

ShowTableStyleLastColumn Devuelve o establece si se debe mostrar la última columna del objeto ListObject especificado.

ActiveCell.ListObject.ShowTableStyleLastColumn = True

ShowTableStyleRowStripes Devuelve o establece si se utiliza el estilo de tabla Bandas de filas para el objeto ListObject especificado.

ActiveCell.ListObject.ShowTableStyleRowStripes = True

Slicers Devuelve una lista de los Rebanadores de tabla asociados a un ListObject.

Dim slcsSlicers As Slicers
Set slcsSlicers = ActiveCell.ListObject.Slicers

Sort Obtiene o establece la columna o columnas de ordenación y el criterio de ordenación para la colección ListObject .

Dim srtSort As Sort
Set srtSort = ActiveCell.ListObject.Sort

SourceType Devuelve un valor XlListObjectSourceType que representa el origen actual de la lista.

Dim xloSourceType As XlListObjectSourceType
xloSourceType = ActiveCell.ListObject.SourceType

Summary Devuelve o establece la descripción asociada a la cadena de texto alternativa para la tabla especificada.

ActiveCell.ListObject.Summary =

TableObject Devuelve un objeto TableObject .

Dim totTableObject As TableObject
Set totTableObject = ActiveCell.ListObject.TableObject

TableStyle Obtiene o establece el estilo de tabla del objeto ListObject especificado.

ActiveCell.ListObject.TableStyle =

XmlMap Devuelve un objeto XmlMap que representa la asignación de esquema utilizada para la tabla especificada.

Dim xmlmpXmlMap As XmlMap
Set xmlmpXmlMap = ActiveCell.ListObject.XmlMap

ListObjects.Count Devuelve un valor de tipo Integer que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveSheet.ListObjects.Count

ListObjects.Item Devuelve un solo objeto de una colección.

Dim lstobjItem As ListObject
Set lstobjItem = ActiveSheet.ListObjects(Index:=1)

ListObjects.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveSheet.ListObjects.Parent