Table 属性

返回一个 String 类型，表示数据源文件中包含邮件合并记录的表名称。如果表名称为未知或不能用于当前数据源，则返回值为空。只读。

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

示例

如果表名称当前为空，本示例则设置表名称。

Sub OfficeTest()

    Dim appOffice As OfficeDataSourceObject

    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    If appOffice.Table = "" Then
        appOffice.Table = "Employees"
    End If

End Sub