Office VBA教程:Columns属性

返回表示数据源中字段的 ODSOColumns对象。

expression.Columns

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

VBA示例

本示例显示附加到活动发布内容的数据源字段。


Sub ShowFieldNames()
    Dim appOffice As OfficeDataSourceObject
    Dim intCount As Integer
    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
    With appOffice.Columns
        For intCount = 1 To .Count
            MsgBox "Field Name: " & .Item(intCount).Name
        Next
    End With
End Sub

上页:Office VBA教程:Column属性 下页:Office VBA教程:CommandBar属性

Office VBA教程:Columns属性

Office VBA教程:CommandBar属性 Office VBA教程:CommandBars属性
Office VBA教程:CompareTo属性 Office VBA教程:Comparison属性
Office VBA教程:Condition属性 Office VBA教程:Conjunction属性
Office VBA教程:Connect属性 Office VBA教程:Connector属性
Office VBA教程:ConnectString属性 Office VBA教程:Context属性
Office VBA教程:Controls属性 Office VBA教程:Count属性
Office VBA教程:Creator属性 Office VBA教程:DataSource属性
Office VBA教程:Description属性 Office VBA教程:DescriptionText属性
Office VBA教程:DialogType属性 Office VBA教程:DisableAskAQuestionDropdown属性
Office VBA教程:DisableCustomize属性 Office VBA教程:DisplayFonts属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号