Application.TableEdit 方法 (Project)

创建、编辑或复制表。

语法

expression。 TableEdit( _Name_, _TaskTable_, _Create_, _OverwriteExisting_, _NewName_, _FieldName_, _NewFieldName_, _Title_, _Width_, _Align_, _ShowInMenu_, _LockFirstColumn_, _DateFormat_, _RowHeight_, _ColumnPosition_, _AlignTitle_, _HeaderAutoRowHeightAdjustment_, _HeaderTextWrap_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	必需	String	要编辑、创建或复制的表的名称。
TaskTable	必需	Boolean	如此 如果活动表包含有关任务或资源;否则为 假 。
Create	可选	Boolean	为 项目创建一个表，否则为 假 如果。 如果未定义新名称，则新的表提供名称与指定的名称。 否则为新表副本的名称与指定的表，并给出新名称与指定的名称。 默认值为 False 。
OverwriteExisting	可选	Boolean	如此 如果新表将覆盖现有的表。 默认值为 False 。
NewName	可选	字符串	创建 (现有表的新名称为 False) ， (Create 为 True) 新表。 如果未定义新名称创建为 假 ，名称与指定的表将保留其当前名称。 默认值为空字符串 ("")。
FieldName	可选	String	要更改的域名称。
NewFieldName	可选	String	新域的名称。 由 NewFieldName 指定的域将替换由 FieldName 指定的域。
Title	可选	String	由 FieldName 指定的域的标题。
Width	可选	Integer	一个数字，指定 FieldName 所指定的域的宽度。 对于新域，默认值为 10。
Align	可选	Integer	指定字段名的指定字段中的文本的对齐方式。 可以是下列的 PjAlignment 常量之一: pjLeft 、 pjCenter 或 pjRight 。 默认值是 pjRight 。
ShowInMenu	可选	Boolean	如果表名称出现在 Tables 下拉菜单中，则为 True；否则为 False。 (“ 表 ”下拉菜单位于 Ribbon 的“ 视图 ”选项卡上。) 默认值为 False。
LockFirstColumn	可选	Boolean	如此 如果项目锁定或禁止对表; 第一列进行修改否则为 假 。 默认值为 False 。
DateFormat	可选	Integer	一个常量，指定表中的日期字段的格式。 可以是 PjDateFormat 常量之一。 默认值是 pjDateDefault 。
RowHeight	可选	Integer	表中行的高度。 默认值为 1。
ColumnPosition	可选	Long	要编辑的列的编号。 (列从左到右进行编号，从 0.) 如果指定了 NewFieldName 的值，则会在表中插入一个新列。 如果 ColumnPosition 设置为 0，则新字段将插入到第一列中， (LockFirstColumn 为 False) 或第二列 (LockFirstColumn 为 True) 表。 将 ColumnPosition 设置为 -1 以指定表的最后一列。 默认值为 -1。
AlignTitle	可选	Long	一个常量，指定列标题的对齐方式。 可以是下列的 PjAlignment 常量之一: pjLeft 、 pjCenter 或 pjRight 。 默认值是 pjCenter 。
HeaderAutoRowHeightAdjustment	可选	Boolean	如此 如果项目自动调整行高的表;否则为 假 。 默认值为 True 。
HeaderTextWrap	可选	Boolean	如此 如果项目文字环绕文本框的标题中的表格;否则为 假 。 默认值为 True。

返回值

Boolean

说明

项目设置的顺序为年，月，和日期格式的日期等于在 Windows 控制面板的 区域和语言选项 对话框中相应的值。

若要创建活动表的副本，请参阅 TableCopy 方法。 若要包括可使表中的文本自动换行的选项和使用 "添加新列" 功能，请参阅 TableEditEx 方法。

示例

下面的示例将基于"任务分配状况"(Task Usage) 表创建一个新表，并将其添加到 "表"(Table) 下拉菜单中。 该宏将"优先级"(Priority) 域作为第二列（使其具有标题，并将列宽设置为 12）添加，并更改默认的日期格式，然后使新表成为活动视图。

Sub CreateNewTaskUsageTable() 
 TableEdit Name:="Usage", TaskTable:=True, Create:=True, _ 
 NewName:="Priority Tasks" 
 
 TableEdit Name:="Priority Tasks", TaskTable:=True, _ 
 NewFieldName:="Priority", Title:="Priority", Width:=12, _ 
 ShowInMenu:=True, DateFormat:=pjDate_mm_dd_yy, _ 
 ColumnPosition:=1 
 
 TableApply "Priority Tasks" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。