Объект ODSOColumn (Office)
Представляет поле в источнике данных. Объект ODSOColumn является членом коллекции ODSOColumns .
Коллекция ODSOColumns включает все поля данных в источнике данных слияния (например, Имя, Адрес и Город).
Нельзя добавлять поля в коллекцию ODSOColumns . Все поля данных в источнике данных автоматически включаются в коллекцию ODSOColumns .
Используйте columns(index), где index — это имя поля данных или номер индекса, чтобы вернуть один объект ODSOColumn . Номер индекса представляет положение поля данных в источнике данных слияния.
В этом примере извлекаются имя и значение первого поля первой записи в источнике данных, присоединенном к активной публикации.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.