exel

Referencia del programador de Excel
Range.ListHeaderRows (propiedad)
Devuelve el número de filas de encabezado para el rango especificado. Long de sólo lectura.
Sintaxisexpresión.ListHeaderRows
expresión   Variable que representa un objeto Range.
Comentarios
Antes de usar esta propiedad, utilice la propiedad CurrentRegion para localizar los límites del rango.
Ejemplo
Este ejemploestablece la variable rTbl como el rango representado por la región actual de la celda activa, sin incluir filas de encabezado.
Visual Basic para aplicaciones
Set rTbl = ActiveCell.CurrentRegion' remove the headers from the range
iHdrRows = rTbl.ListHeaderRows
If iHdrRows > 0 Then
' resize the range minus n rows
Set rTbl = rTbl.Resize(rTbl.Rows.Count - iHdrRows)
' andthen move the resized range down to
' get to the first non-header row
Set rTbl = rTbl.Offset(iHdrRows)
End If

Referencia del programador de Excel
ListObject.ListRows (propiedad)Devuelve un objeto ListRows que representa todas las filas de datos del objeto ListObject. Sólo lectura.
Sintaxis
expresión.ListRows
expresión   Variable que representa un objeto ListObject.Comentarios
El objeto ListRows devuelto no incluye las filas de encabezado, las totales ni las insertadas.
Ejemplo
En el siguiente ejemplo se elimina una fila especificada mediante un número en lacolección ListRows creada mediante una llamada a la propiedad ListRows.
Visual Basic para aplicaciones
Sub DeleteListRow(iRowNumber As Integer)
Dim wrksht As Worksheet
Dim objListObj AsListObject
Dim objListRows As ListRows

Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
Set objListObj = wrksht.ListObjects(1)
Set objListRows = objListObj.ListRowsIf (iRowNumber 0) And (iRowNumber < objListRows.Count - 1) Then
objListRows(iRowNumber).Delete
End If
End Sub
© 2010 Microsoft Corporation. Reservados todos los derechos