Compartilhar via

Objeto OfficeDataSourceObject (Office)

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 seguinte ordena primeiro a origem de dados de acordo com o Código Postal por ordem descendente e, em seguida, por apelido e nome próprio por ordem ascendente.

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 seguinte altera um filtro existente para remover da impressão em série todos os registos que não têm um campo Região 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.

  • Last updated on