Excel VBA錯誤處理（簡單，但我不明白）

Question

好吧，我試圖把一個錯誤控制，如果activecell行返回錯誤，它將佔用行中的單元格，並只寫「錯誤「 在上面。代碼工作正常，直到我把On Error Control。我想我需要告訴If If的錯誤詞將被放入的正確位置。以下是代碼。

Private Sub CommandButton1_Click() 


Dim outlookapp As Outlook.Application 
Dim outlookmail As Outlook.MailItem 
Dim myusername As String 
Dim LastRow As Long, CurRow As Long, DestRow As Long, DestLast As Long 
Dim checkstatus As String 
Dim ws1 As Worksheet, ws2 As Worksheet 


Set ws1 = Sheets("Sheet1") 
LastRow = ws1.Range("A" & Rows.Count).End(xlUp).Row 

On Error Resume Next 



For CurRow = 2 To LastRow 



myusername = Environ("Username") 
Set outlookapp = New Outlook.Application 
Set outlookmail = outlookapp.CreateItemFromTemplate("C:\Users\" & myusername & "\AppData\Roaming\Microsoft\Templates\testtemplate.oft") 


With outlookmail 

.SentOnBehalfOfName = "SharedMailbox" 


.To = ActiveCell.Cells(CurRow, 6) 
.Subject = Replace(outlookmail.Subject, "xProjID", ActiveCell.Cells(CurRow, 1)) 
.Subject = Replace(outlookmail.Subject, "xProjName", ActiveCell.Cells(CurRow, 2)) 
.Subject = Replace(outlookmail.Subject, "xVert", ActiveCell.Cells(CurRow, 5)) 
.HTMLBody = Replace(outlookmail.HTMLBody, "xXName", ActiveCell.Cells(CurRow, 2)) 
.HTMLBody = Replace(outlookmail.HTMLBody, "xProjID", ActiveCell.Cells(CurRow, 1)) 
.HTMLBody = Replace(outlookmail.HTMLBody, "xStat", ActiveCell.Cells(CurRow, 10)) 
.HTMLBody = Replace(outlookmail.HTMLBody, "xManID", ActiveCell.Cells(CurRow, 6)) 
.HTMLBody = Replace(outlookmail.HTMLBody, "xName", ActiveCell.Cells(CurRow, 7)) 


End With 


ActiveCell.Cells(CurRow, 11) = "Yes" 
ActiveCell.Cells(CurRow, 12) = DateTime.Now 

If Err.Number <> 0 Then 

ActiveCell.Cells(CurRow, 13) = "Error" 

End If 

outlookmail.Send 



Next CurRow 

MsgBox "Mass Mailer Complete" 


End Sub 

因此，它會獲取特定用戶的Outlook別名並將電子郵件發送給他/她。所以我試圖把錯誤的別名，如「xxxx」。事情是應該在activecell.cells（currow，13）中的「錯誤」一詞，對於具有「xxxx」的行使用正確的別名記錄行。那麼我應該在哪裏把代碼放在代碼中？

If Err.Number <> 0 Then 

ActiveCell.Cells(CurRow, 13) = "Error" 

End If 

謝謝！

Answer 1

一般來說，總是儘量讓你的代碼儘可能簡單，並消除無用的東西，僅僅對那些不起作用的東西。 你需要的東西是這樣的：

Option Explicit 

Public Sub Test() 

    On Error Resume Next 

    Debug.Print 5/0 

    If Err.Number <> 0 Then 
     Cells(1, 1) = Err.Description 
    End If 

    On Error GoTo 0 

End Sub 

然後從那裏出發，您可以進一步構建代碼。如果你需要一個循環，並Err.Clear在從@墊的馬克杯的評論認爲，它看起來就像這樣：

Option Explicit 

Public Sub Test() 

    Dim lngCounter  As Long 
    Dim lngcounter2  As Long 

    On Error Resume Next 

    Cells.Clear 

    For lngCounter = 1 To 5 

     Debug.Print lngCounter/IIf(lngCounter Mod 2 = 0, 1, 0) 

     If Err.Number <> 0 Then 
      Cells(lngCounter, 1) = Err.Description 
     End If 

     Err.Clear 

    Next lngCounter 

    On Error GoTo 0 

End Sub 

這給出了5次迭代3個錯誤，並在活動的Excel工作表的列A寫入其描述。