表格宽度可以到最后统一给定，通过判断标题的宽度来设定宽度

For Column_Count = Table1.ValueColumnCount To 0 Step -1

Table1.ValueColumnIndex= ColumnIndex

Table1.valueColumntimecolumn = "时间列 1"

Table1.ValueColumnAlign=1

Table1.ValueColumnForeColor = vbBlack

Table1.ValueColumnLength = Len(Table1.ValueColumnName)*2-1

Table1.ValueColumnVisible = 1

ColumnIndex = ColumnIndex +1

Next