kttq.net
当前位置:首页 >> vBA 忽略错误继续执行 >>

vBA 忽略错误继续执行

Sub 强行删除指定工作表() On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 Application.DisplayAlerts = False '禁用警告提示 Sheets("仓库").Delete Application.DisplayAlerts = True '恢复警告提示 End Sub

on error resume next

方法一(适用于全局): Application.ErrorCheckingOptions.NumberAsText = False 方法二(适用于当前): With Range("A1") .NumberFormat = "General" .Value2 = .Value2End With

Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close savechanges:=False End Sub 亲 只需要在workbook 的BeforeClose 事件里面写上我上面这句ThisWorkbook.Close savechanges:=False就行哦 但是你所做的更更都不会保存哦,...

网站首页 | 网站地图
All rights reserved Powered by www.kttq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com