返回列表 上一主題 發帖

(發問)WEB查詢，如何取消跳出的警告視窗

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2011-10-31 23:18 | 顯示全部帖子
回復 1# jewayy
你可以於錯誤發生時將程式導向錯誤處理程序,
於 錯誤處理程序 開頭事先先加上中斷,
再於其中顯示出錯誤代碼,
最後將該代碼的處理程序加入即可.
  Sub Test()  
  On Error GoTo ErrorFix
  exit Sub

ErrorFix:
  MsgBox Err.Number
  MsgBox Err.Description
If Err.Number = 11 Then
.
.
    Err.Clear
  End If
  Resume
End Sub

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題