Objeto ODSOColumn (Office)
Representa um campo em uma fonte de dados. O objeto ODSOColumn é um membro da coleção ODSOColumns.
Comentários
A coleção ODSOColumns inclui todos os campos de dados em uma fonte de dados de mala direta (por exemplo, nome, endereço e cidade).
Você não pode adicionar campos à coleção ODSOColumns. Todos os campos de dados em uma fonte de dados são incluídos automaticamente na coleção ODSOColumns.
Use Columns(index), em que index é o nome do campo de dados ou o número do índice, para retornar um único objeto ODSOColumn . O número de índice representa a posição do campo de dados na fonte de dados de mala direta.
Exemplo
Este exemplo recupera o nome e valor do primeiro campo do primeiro registro da fonte de dados anexada à publicação ativa.
Sub GetDataFromSource()
Dim appOffice As OfficeDataSourceObject
Set appOffice = Application.OfficeDataSourceObject
appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
"UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
With appOffice.Columns
MsgBox "Field Name: " & .Item(1).Name & vbLf & _
"Value: " & .Item(1).Value
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.