Office VBA教程:OfficeDataSourceObject对象

   
OfficeDataSourceObject
多个对象

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

使用 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

使用Column,ComparisonCompareToConjunction属性返回或设置数据源查询条件。本示例更改已有筛选,从邮件合并中删除所有 Region 域不等于 "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教程:ODSOFilters对象 下页:Office VBA教程:PropertyTest对象

Office VBA教程:OfficeDataSourceObject对象

Office VBA教程:PropertyTest对象 Office VBA教程:PropertyTests集合对象
Office VBA教程:ScopeFolder对象 Office VBA教程:ScopeFolders集合
Office VBA教程:Script对象 Office VBA教程:Scripts集合对象
Office VBA教程:SearchFolders集合 Office VBA教程:SearchScope对象
Office VBA教程:SearchScopes集合 Office VBA教程:Signature对象
Office VBA教程:SignatureSet集合 Office VBA教程:WebPageFont对象
Office VBA教程:WebPageFonts集合对象 Office VBA教程:New对象
Office VBA教程:ActionControl属性 Office VBA教程:ActiveMenuBar属性
Office VBA教程:AdaptiveMenu属性 Office VBA教程:AdaptiveMenus属性
Office VBA教程:AllowMultiSelect属性 Office VBA教程:Animation属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号