if Tables("表A").Current isnot nothing
Tables("表A").Current.Reject()
end if
注:原因,已经撤销一次,该表失去焦点,不存在Current,连续两次点击撤销按钮会报错!