关闭后重新打开呗。
Tables("表A.表B").Visible = False
Tables("表A.表C").Visible = False
Tables("表A.表C").Visible = true
Tables("表A.表B").Visible = true