通过

OfficeDataSourceObject 对象 (Office)

  • 项目

代表邮件合并操作中的邮件合并数据源。

备注

要使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。