systemready = FalseTables("表A").StopRedraw
'这里是本来代码
Tables("表A").ResumeRedrawTables("表A").Refreshsystemready = True