Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Obtient un tableau à deux dimensions qui contient un ensemble de valeurs de ligne et de colonne à partir de la table.
Syntaxe
expression. GetArray( _MaxRows_ )
Expression Variable qui représente un objet Table .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| MaxRows | Obligatoire | Long | Spécifie le nombre maximal de lignes à renvoyer de l'objet Table. |
Valeur renvoyée
Valeur variant qui est un tableau à deux dimensions représentant un ensemble de valeurs de ligne et de colonne de la table. La première ligne du tableau est zéro ; l'indexation du tableau (i, j) s'effectue à partir de la ième ligne et de la jème colonne. Les colonnes du tableau correspondent aux colonnes de l'objet Table et les lignes, aux lignes de l'objet Table. Le nombre de lignes dans le tableau retourné est la valeur inférieure de MaxRows et le nombre réel de lignes dans la table.
Remarques
La méthode GetArray propose un moyen conceptuel simple d'obtenir des valeurs de l'objet Table en copiant tout ou partie des données de l'objet Table (en se basant sur la ligne active) dans un tableau et en les indexant dans ce tableau.
GetArray commence toujours sur la ligne active de l'objet Table. Elle retourne un tableau avec un nombre de lignes MaxRows s’il existe au moins un nombre maximal de lignes dans la table commençant à la position actuelle. Si MaxRows n’est pas supérieur au nombre total de lignes dans la table et qu’il y a moins de MaxRows nombre d’éléments dans la table à partir de la ligne actuelle, il retourne un tableau qui contient uniquement les lignes restantes de la table. Si la méthode GetArray est appelée et qu'il n'existe aucune ligne restante, alors GetArray renvoie un tableau vide avec zéro élément.
Après l’obtention des lignes appropriées auprès de l’objet Table et avant son renvoi, GetArray repositionne toujours la ligne active sur la ligne suivante de l’objet Table, s’il existe une ligne suivante. GetArray(n) fonctionne comme si Table.GetNextRow est appelé n fois.
Les valeurs des colonnes correspondent aux colonnes de l’objet Table et sont donc déterminées par le format du nom de propriété utilisé pour la colonne. Pour plus d’informations, voir Facteurs influant sur la représentation des valeurs de propriétés dans les classes Table et View.
Exemple
L’exemple de code suivant obtient une table en filtrant sur tous les éléments de la boîte de réception qui contiennent « Office » dans l’objet. Ce code utilise ensuite la méthode Table.GetArray pour copier les données de l'objet Table dans un tableau, puis il imprime la valeur de propriété de chaque élément renvoyé.
Pour plus d’informations sur les propriétés référencées par un espace de noms, voir Référencer les propriétés par espace de noms.
Sub DemoTableUsingGetArray()
'Declarations
Dim Filter As String
Dim i, ubRows As Long
Dim j, ubCols As Integer
Dim varArray
Dim oTable As Outlook.Table
Dim oFolder As Outlook.Folder
Const SchemaPropTag As String = _
"http://schemas.microsoft.com/mapi/proptag/"
On Error Resume Next
'Get a Folder object for the Inbox
Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)
'Filter on the subject containing "Office"
Filter = "@SQL=" & Chr(34) & SchemaPropTag & "0x0037001E" _
& Chr(34) & " like '%Office%'"
'Get all items in Inbox that meet the filter
Set oTable = oFolder.GetTable(Filter)
On Error GoTo Err_Trap
varArray = oTable.GetArray(oTable.GetRowCount)
'Number of rows is the second dimension of the array
ubRows = UBound(varArray, 2)
'Number of columns is the first dimension of the array
ubCols = UBound(varArray)
'Array is zero-based
'Rows corrspond to items in the table, so for each item...
For j = 0 To ubRows
'Columns correspond to properties in the table, print the value of each property
For i = 0 To ubCols
Debug.Print varArray(i, j)
Next
Next
Exit Sub
Err_Trap:
Debug.Print "Error#:" & Err.Number & " Desc: " & Err.Description
Resume Next
End Sub
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.