生成之后设置列宽,如
For Each c As Col In Tables("统计表1").cols If c.Caption = "客户" Then c.width = 50 ElseIf c.Caption Like "产品_*" Then c.width = 100 End IfNext