用字典先处理，再引用
Dim dic As new Dictionary(Of String, String)For Each c As Col In Tables("统计表").Cols dic.Add(c.Caption, c.name)Next
然后这样获取列名
Tables("统计表").Cols(dic("列标题")).Width = 50
加好友 
发短信
Post By：2018/3/23 16:08:00 [只看该作者]
