循环每一个列，判断一下，如
Dim str As String = ""For Each c As Col In Tables("表A").Cols If c.Visible Then str &= c.name & "|" End IfNextmsgbox(str)
加好友 
发短信
Post By：2019/3/18 9:11:00 [显示全部帖子]
