VBA - Excel - On Error goto userform

Question

當出現錯誤時，我想返回到我的用戶表單並更改表單中輸入的信息並將其傳遞到宏，然後繼續：如果Len（Dir（ sFilePath & newfol，vbDirectory））= 0 ...

If Len(Dir(sFilePath & newfol, vbDirectory)) = 0 Then 
      MkDir sFilePath & newfol & "\" 
      On Error GoTo UserForm1 
     Else 
      MsgBox ("Folder already exists please re enter new folder name") 
      'End 
      UserForm1.Show 
      MoveAndSave_Reports 
End If 

上面給我的錯誤信息：當您使用「標籤上沒有 「對錯誤轉到UserForm1」

Answer 1

定義：編譯錯誤錯誤轉到「語句，您告訴程序，當它遇到錯誤時，跳到當前過程中的特定行。例如：

On Error GoTo ErrorHandler 
x = 10/0 
msgbox "x = infinity!" 

ErrorHandler: 
msgbox "Cannot divide by zero" 

在這個例子中，當代碼擊中錯誤（在我的「上的錯誤」語句），它將停止它在做什麼，並開始在的ErrorHandler標籤執行代碼（這是一個標籤，因爲最後的冒號）。運行這段代碼，你永遠不會看到消息框中顯示x = infinity。通過嘗試除以零來達到錯誤後，它將跳到ErrorHandler標籤並給我一條消息，說我不能被零除。

Chip Pearson對基本錯誤處理有很好的介紹here。