Word VBA教程:TableName属性

该属性返回一个带有 SQL 查询的 String 类型的数值,用于从邮件合并文档附加的数据源文件获取记录。如果表格名称未知或不可用于当前的数据源,则该属性可能为空。只读。

expression.TableName

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

VBA示例

本示例检查“Customers”表是否为附加数据源中表的名称。如果不是,则将“Customers”表附加到“Northwind”数据库。


Sub DataSourceTable()
    With ActiveDocument.MailMerge
        If InStr(1, .DataSource.TableName, "Customers") < 1 Then
            .OpenDataSource Name:="C:\ProgramFiles\Microsoft Office\Office\" & _
                "Samples\Northwind.mdb", LinkToSource:=True, _
                AddToRecentFiles:=False, Connection:="TABLE Customers"
        End If
    End With
End Sub

注意  本示例使用 Visual Basic 的 InStr函数,如果第二个字符串出现在第一个字符串中,则该函数返回第二个字符串中第一个字符的位置。如果第一个字符串不包含第二个字符串,则该函数返回 0。将条件值设为小于 1 的值表示附加表的名称不是“Customers”。

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号