Hinweis
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.
Repräsentiert die Seriendruckdatenquelle in einem Seriendruckvorgang.
Hinweise
Um mit dem OfficeDataSourceObject -Objekt zu arbeiten, die dimension einer Variable als OfficeDataSourceObject -Objekt. Sie können dann mit den verschiedenen Eigenschaften und Methoden im Zusammenhang mit dem Objekt arbeiten. Verwenden Sie die SetSortOrder -Methode, um anzugeben, wie die Datensätze in einer Datenquelle zu sortieren.
Beispiel
Im folgenden Beispiel werden die Datenquellen zuerst nach Postleitzahl in absteigender Reihenfolge und anschließend nach Nachname und Vorname in aufsteigender Reihenfolge sortiert.
Sub SetDataSortOrder()
Dim appOffice As OfficeDataSourceObject
Set appOffice = Application.OfficeDataSourceObject
appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
"UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
appOffice.SetSortOrder SortField1:="ZipCode", _
SortAscending1:=False, SortField2:="LastName", _
SortField3:="FirstName"
End Sub
Verwenden Sie die Spalte, Vergleich, CompareTo, und - Verknüpfung Eigenschaften, um das Data Source Abfragekriterium festzulegen oder zurückzugeben. Im folgenden Beispiel wird ein vorhandener Filter geändert, sodass alle Datensätze, die nicht das Feld "Region " oder "Region" aufweisen, aus dem Seriendruck entfernt werden.
Sub SetQueryCriterion()
Dim appOffice As Office.OfficeDataSourceObject
Dim intItem As Integer
appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
"UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
With appOffice.Filters
For intItem = 1 To .Count
With .Item(intItem)
If .Column = "Region" Then
.Comparison = msoFilterComparisonNotEqual
.CompareTo = "WA"
If .Conjunction = "Or" Then .Conjunction = "And"
End If
End With
Next intItem
End With
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.