Objeto OfficeDataSourceObject (Office)

  • Artigo

Representa a fonte de dados da mala direta em uma operação de mala direta.

Comentários

Para trabalhar com o objeto OfficeDataSourceObject, dimension uma variável como um objeto OfficeDataSourceObject. Em seguida, você pode trabalhar com as diferentes propriedades e métodos associados ao objeto. Use o SetSortOrder método para especificar como classificar os registros em uma fonte de dados.

Exemplo

O exemplo a seguir classifica a fonte de dados primeiro de acordo com o Código Postal em ordem decrescente e, em seguida, em sobrenome e primeiro nome em ordem crescente.

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

Use a coluna, Comparação, CompareTo, conjunção e propriedades para retornar ou definir o critério de consulta de fonte de dados. O exemplo a seguir altera um filtro existente para remover do email mesclar todos os registros que não têm um campo Region igual a "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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.