循环每一列，提取标题来使用。
Dim dic As new Dictionary(of String, String)For Each c As Col In Tables("表A").cols dic.Add(c.Caption, c.name)Next
msgbox(dic("3月"))
加好友 
发短信
Post By：2017/2/7 9:51:00 [显示全部帖子]
