Office VBA教程:ApplyFilter方法

将筛选应用于邮件合并数据源,筛选满足特定条件的指定记录。

expression.ApplyFilter

expression   必需。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例新添一个删除 Region 字段为空的所有记录的筛选,并将该筛选应用于活动的发布内容。


Sub OfficeFilters()
    Dim appOffice As OfficeDataSourceObject
    Dim appFilters As ODSOFilters
    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
    Set appFilters = appOffice.Filters
    MsgBox appOffice.RowCount
    appFilters.Add Column:="Region", Comparison:=msoFilterComparisonEqual, _
        Conjunction:=msoFilterConjunctionAnd, bstrCompareTo:="WA"
    appOffice.ApplyFilter
    MsgBox appOffice.RowCount
End Sub

上页:Office VBA教程:AddToSearchFolders方法 下页:Office VBA教程:Clear方法

Office VBA教程:ApplyFilter方法

Office VBA教程:Clear方法 Office VBA教程:ClearFileList方法
Office VBA教程:Close方法 Office VBA教程:Commit方法
Office VBA教程:Copy方法 Office VBA教程:CopyFace方法
Office VBA教程:Delete方法 Office VBA教程:DoAlert方法
Office VBA教程:EndWizard方法 Office VBA教程:Execute方法
Office VBA教程:FindControl方法 Office VBA教程:FindControls方法
Office VBA教程:Help方法 Office VBA教程:Item方法
Office VBA教程:LoadFromFile方法 Office VBA教程:Move方法
Office VBA教程:NewSearch方法 Office VBA教程:Open方法
Office VBA教程:PasteFace方法 Office VBA教程:RefreshDocument方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号