Table 属性
优质
小牛编辑
120浏览
2023-12-01
返回一个 String 类型,表示数据源文件中包含邮件合并记录的表名称。如果表名称为未知或不能用于当前数据源,则返回值为空。只读。
expression.Table
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