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("3日")).Width = 50