Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Es wird ein zweidimensionales Array abgerufen, das einen Satz Zeilen- und Spaltenwerte aus dem Table -Objekt enthält.
Syntax
Ausdruck.
GetArray( _MaxRows_ )
Ausdruck Eine Variable, die ein Table-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| MaxRows | Erforderlich | Long | Gibt die maximale Anzahl von Zeilen aus der Tabelle zurückgegeben. |
Rückgabewert
Ein Variant-Wert , bei dem es sich um ein zweidimensionales Array handelt, das eine Reihe von Zeilen- und Spaltenwerten aus der Tabelle darstellt. Das Array ist nullbasiert. Ein Arrayindex (i, j) indizes in der i-ten Spalte und j-ten Zeile im Array. Spalten im Array entsprechen Spalten in der Tabelle, und Zeilen im Array entsprechen Zeilen in der Tabelle. Die Anzahl der Zeilen im zurückgegebenen Array ist der geringere Wert von MaxRows und die tatsächliche Anzahl der Zeilen in der Tabelle.
Hinweise
GetArray -Methode bietet einen einfachen Prinzip bedeutet, dass beim Abrufen von Werten aus einer Tabelle, indem alle oder einen Teil der Daten in der Tabelle (basierend auf der aktuellen Zeile) auf ein Array kopiert und im Array.
GetArray beginnt immer bei der aktuellen Zeile der Tabelle. Es wird ein Array mit maxRows-Zeilenanzahl zurückgegeben, wenn mindestens MaxRows-Zeilenanzahl in der Tabelle vorhanden ist, die an der aktuellen Position beginnt. Wenn MaxRows nicht größer als die Gesamtanzahl der Zeilen in der Tabelle ist und die Anzahl der Elemente in der Tabelle ab der aktuellen Zeile kleiner als MaxRows ist, wird ein Array zurückgegeben, das nur die verbleibenden Zeilen in der Tabelle enthält. Wenn GetArray aufgerufen wird und keine verbleibenden Zeilen vorhanden sind, gibt GetArray ein leeres Array mit 0 Elementen zurück.
Nach dem Abrufen der entsprechenden Zeilen aus der Tabelle und vor der Rückgabe, verschiebt GetArray immer die aktuelle Zeile in die nächste Zeile in der Tabelle, wenn eine nächste Zeile vorhanden.
GetArray(n) arbeitet, als ob Table.GetNextRow n aufgerufen wird Zeiten.
Die Werte in den Spalten Zuordnen von Spalten in der Tabelle, und werden daher durch das Format des der Name der Eigenschaft für die Spalte verwendet bestimmt. Weitere Informationen finden Sie unter Faktoren, die sich auf die Darstellung von Eigenschaftswerten in den Klassen 'Table' und 'View' auswirken.
Beispiel
Im folgenden Codebeispiel ruft eine Tabelle von Filtern für alle Elemente im Posteingang, die im Betreff "Office" enthalten. Anschließend wird die Table.GetArray -Methode verwendet, um die Daten aus der Tabelle in ein Array kopieren und druckt den Wert der Eigenschaft der einzelnen zurückgegebenen Elemente.
Weitere Informationen zum Angeben von Eigenschaftsnamen in einem Filter durch Namespaceverweise finden Sie unter Verweisen auf Eigenschaften mithilfe von Namespaces.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.