各位大俠，本人新手，寫了個小程式，碰到點問題，還請大俠們幫忙看看，多謝關注，謝謝！
如圖片所示，當彈出錯誤框時，不作除錯處理，也不是退出程式，而是直接往下運行。
Private Sub Command1_Click()
On Error Resume Next
If Text14.Text = "" Then
MsgBox "出錯，待執行程式檔案為空！"
Exit Sub '如果檔案名為空，則退出程式
End If
Dim xlApp As Object
Dim xlBook As Object: Dim Book1 As Object
Dim xlSheet As Object: Dim xlSheet1 As Object
Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Add
Set Book1 = xlApp.Workbooks.Open(Text14)
Set xlSheet1 = Book1.Worksheets(1)
Dim hong As String: Dim gzb As String: Dim hmm As String
Dim wjhs As Integer: Dim zxgs As Integer
Dim Pid As Long: Dim hWnd As Long '為exe程式判斷結束時間設定的
wjhs = xlSheet1.Cells(1, 2) '執行的個數
For zxgs = 3 To wjhs + 3
hong = xlSheet1.Cells(zxgs, 1) '定義宏檔案
If hong = "" Then
wjhs = zxgs - 3
Exit For
End If
If Right(hong, 3) = "exe" Then
'ShellAndWait hong
Pid = Shell(hong, vbMinimizedFocus)
hWnd = OpenProcess(SYNCHRONIZE, 0, Pid)
Do
DoEvents
Loop Until WaitForSingleObject(hWnd, 0) = 0
'MsgBox "Process Finished!"
CloseHandle hWnd
Else
Set xlBook = xlApp.Workbooks.Open(hong)
Set xlSheet = xlBook.Worksheets(1)
gzb = Mid$(hong, InStrRev(hong, "\") + 1) '讀取去路徑的檔案名
xlSheet.Cells(1, 6) = xlSheet1.Cells(zxgs, 2) '將程式串列中的資料寫入自動批處理
xlSheet.Cells(2, 6) = xlSheet1.Cells(zxgs, 3)
xlSheet.Cells(3, 6) = xlSheet1.Cells(zxgs, 4)
xlSheet.Cells(4, 6) = xlSheet1.Cells(zxgs, 5)
xlSheet.Cells(5, 6) = xlSheet1.Cells(zxgs, 6)
xlSheet.Cells(6, 6) = xlSheet1.Cells(zxgs, 7)
xlSheet.Cells(7, 6) = xlSheet1.Cells(zxgs, 8)
xlSheet.Cells(8, 6) = xlSheet1.Cells(zxgs, 9)
xlSheet.Cells(9, 6) = xlSheet1.Cells(zxgs, 10)
xlSheet.Cells(10, 6) = xlSheet1.Cells(zxgs, 11)
xlSheet.Cells(11, 6) = xlSheet1.Cells(zxgs, 12)
hmm = xlSheet1.Cells(zxgs, 13) '宏名
xlApp.Run gzb & "!" & hmm '運行宏程式
'如果此時宏程式提示出錯，不是退出程式，而是程式如何自動繼續下行？
xlBook.Saved = True
xlBook.Close
End If
Book1.Saved = True
Next zxgs
Book1.Close
Set xlBook = Nothing: Set Book1 = Nothing
xlApp.Quit
Set xlApp = Nothing
'MsgBox "共" & wjhs & "個程式，已運行完畢！"
End Sub
uj5u.com熱心網友回復：
在宏程式里使用 On Error Resume Next等捕獲錯誤的措施uj5u.com熱心網友回復：
On Error Resume Next使用On Error GoTo轉移執行的代碼流
On Error GoTo 0禁止當前程序中任何已啟動的錯誤處理程式
在任何程序中，一旦錯誤處理程式處理了錯誤，在當前程序中就會從 Resume 陳述句指定的位置恢復運行。注意 一個錯誤處理程式不是 Sub 程序或 Function 程序。它是一段用行標簽或行號標記的代碼。錯誤處理程式依靠 Err 物件的 Number 屬性中的值來確定錯誤發生的原因。在其它任何錯誤發生之前，或在呼叫一個可能會導致錯誤發生的程序之前，錯誤處理程式應該先測驗或存盤 Err 物件中相關的屬性值。Err 物件中的屬性值只反映最近發生的錯誤。Err.Description 中包含有與 Err.Number 相關聯的錯誤資訊。On Error Resume Next 會使程式從緊隨產生錯誤的陳述句之后的陳述句繼續執行，或是從緊隨最近一次呼叫含有 On Error Resume Next 陳述句的程序的陳述句繼續運行。這個陳述句可以置運行時錯誤于不顧，使程式得以繼續執行。可以將錯誤處理程式放置在錯誤發生的地方，而不必將控制元件傳輸到程序中的其它位置。在呼叫另一個程序時，On Error Resume Next 陳述句成為非活動的，所以，如果希望在例程中進行嵌入錯誤處理，則應在每一個呼叫的例程中執行 On Error Resume Next 陳述句。注意 當處理在訪問其它物件期間產生的錯誤時，與其使用 On Error GoTo 指令，不如使用 On Error Resume Next。每次和物件打交道，在不知道用代碼訪問哪個物件時，檢查一下 Err 都會打消這種疑慮。可以確定是哪個物件產生錯誤（Err.Source 中指定的物件），也可以確定是哪個物件將錯誤代碼放在 Err.Number 中。On Error GoTo 0 停止在當前程序中處理錯誤。即使程序中包含編號為 0 的行，它也不把行 0 指定為處理錯誤的代碼的起點。
uj5u.com熱心網友回復：
不主張這樣做。你排錯檢查錯誤的原因是什么。搞清楚之后，在呼叫前檢查條件是否具備。
uj5u.com熱心網友回復：
在excel的宏里面設定錯誤陷阱，把宏里面的錯誤放在宏里面處理，不要讓宏的運行中斷了。如果宏運行中斷了，宏中斷是在宏運行期間，這個時候還沒有回傳到vb，vb代碼就不會繼續運行。
但是。。在宏里面放置on error resume next,退出excel的時候還是會有個什么“在當前位置發現已經存在名為resume。xlw的檔案。。。”還是會中斷在excel里。
還是聽樓上的，把問題找到，正確處理比較好
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109530.html
標籤：VB基礎類