大小写要匹配，红色代码确认以后再次打开可以删除。
RibbonTabs("实战演练")("任务二")("collist").Text = CurrentTable.Cols(CurrentTable.Colsel).Name
Dim a As String
加好友 
发短信
Post By：2015/12/3 9:12:00 [只看该作者]
