Freigeben über

OfficeDataSourceObject-Objekt (Office)

  • Artikel

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 wird die Datenquelle zuerst nach Postleitzahl in absteigender Reihenfolge und dann nach Nach- und Vornamen 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 so geändert, dass alle Datensätze aus dem Seriendruck entfernt werden, die kein Feld "Region " mit dem Wert "WA" aufweisen.

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.