- 帖子
- 28
- 主題
- 13
- 精華
- 0
- 積分
- 78
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- excel 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-12-4
- 最後登錄
- 2023-3-29
|
[發問] 關於 on error resume next
On Error Resume Next '遇錯誤要繼續執行
Reset:
x = InputBox("請輸入預瀏覽之排程日期", , "請輸入日期 <例如 1007 1010 >")
ActiveWorkbook.FollowHyperlink "http://zipsum/fileupload/LCD6RPT/01.前排程相關資訊/00.LCD6%20前段排程%20Watch%20This%20!!/201510/LCD6%20生產排程%20與%20Watch%20This" & x & "前排版.xls"
If Err.Number <> 0 Then '若前面有發生錯誤
result = MsgBox(prompt:=Err.Description & vbCrLf & vbCrLf & "要繼續執行嗎?", _
Buttons:=vbYesNo, Title:="發生錯誤", HelpFile:=Err.HelpFile, Context:=Err.HelpContext)
GoTo Reset
If Not result = vbYes Then Exit Sub '若按 "否" 就結束
End If
End Sub
小弟的問題在於如果出現錯誤，按否應該是會結束，結果他變成無限迴圈，重覆執行inputbox
能否請各位達人幫幫忙 幫小弟修改一下 出現錯誤 按是重新執行 按否直接離開
另一問 如果檔案中有網頁的更新連結訊息,是否也會被當成是錯誤代碼 帶入 on error 中呢?? |
|
發表於 2015-11-20 01:11
| 
