共用方式為

Office) (OfficeDataSourceObject 物件

  • 發行項

代表合併列印作業中的合併列印資料來源。

註解

若要使用 OfficeDataSourceObject 物件，維度為 OfficeDataSourceObject 物件的變數。 您可以再使用不同的屬性和方法物件相關聯。 使用 SetSortOrder 若要指定如何排序資料來源中的記錄的方法。

範例

下列範例會先根據郵遞區號，依遞減順序排序資料來源，然後依姓氏和名字以遞增順序排序。

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

使用 資料行 、 比較 、 CompareTo 及 搭配使用 傳回或設定資料來源查詢準則的屬性。 下列範例會變更現有的篩選，以從合併列印中移除 區域欄位 不等於 「WA」 的所有記錄。

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

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。