Oharra
Orrialde honetara sartzeak baimena behar du. Saioa hasteko edo direktorioak aldatzen saia zaitezke.
Orrialde honetara sartzeak baimena behar du. Direktorioak aldatzen saia zaitezke.
Ordena las filas de table por la propiedad especificada en SortProperty y restablece la fila actual a justo antes de la primera fila de la tabla.
Sintaxis
expresión. Sort (SortProperty, Descending)
expresión Variable que representa un objeto Table .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| SortProperty | Obligatorio | String | Especifica la propiedad que se va a usar para ordenar las filas de la tabla. |
| Descending | Opcional | Boolean | Si desea ordenar la tabla en orden descendente. |
Observaciones
SortProperty puede ser cualquier propiedad integrada explícita o propiedad personalizada, a excepción de las propiedades binarias y propiedades multivalor. A la propiedad debe hacerse referencia mediante su nombre de cadena explícito y no mediante un espacio de nombres. Para obtener más información sobre cómo especificar propiedades de ordenación, vea Ordenar elementos en una carpeta.
Ordenar la tabla equivale a llamar a un método MoveToStart. El cursor se colocará al principio del objeto Table.
Si se llama a Table.Sort y, a continuación, a Table.Restrict, los elementos filtrados del nuevo objeto Table se ordenarán por los mismos valores de SortProperty y SortOrder.
Table.Sort sólo admite la ordenación en una sola columna.
Ejemplo
El ejemplo de código siguiente muestra cómo ordenar las filas de una tabla basándose en la propiedad ReceivedTime e imprime el valor de la propiedad de asunto normalizado MAPI de cada fila de la tabla ordenada.
Sub SortTableByReceivedTime()
Dim oT As Outlook.Table
Dim oRow As Outlook.Row
Set oT = Session.GetDefaultFolder(olFolderInbox).GetTable
'Add normalized subject (subject without RE:, FW: and other prefixes)to the column set
oT.Columns.Add ("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
'Sort by ReceivedTime in descending order
oT.Sort "[ReceivedTime]", True
Do Until oT.EndOfTable
Set oRow = oT.GetNextRow
'Print the normalized subject of each row
Debug.Print oRow("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
Loop
End Sub
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.