AfterClose事件,写代码
Tables("表A").Cols("第一列").Visible = True
Tables("表A").Cols("第二列").Visible = True
Tables("表A").Cols("第三列").Visible = True