刪除工作表並使用相同的工作表名稱重新創建

Question

我正在嘗試刪除工作表並自動創建一個具有相同名稱的新工作表。

我正在使用下面的代碼。但是，當我運行代碼時，彈出的窗口出現，要求我確認刪除，我想防止這種情況，只是刪除並用新的工作表進行替換。我想避免發送密鑰。

ThisWorkbook.Sheets("Process Map").delete 
ThisWorkbook.Sheets.Add.Name = "Process Map" 

Answer 1

嘗試DisplayAlerts設置爲False（然後回真，如果這是你想要作爲默認設置什麼

Application.DisplayAlerts = False 
On Error Resume Next 
ThisWorkBook.Sheets("Process Map").Delete 
On Error Goto 0 
Application.DisplayAlerts = True 
ThisWorkbook.Sheets.Add.Name = "Process Map" 

或者沒有錯誤處理：

Application.DisplayAlerts = False 
ThisWorkBook.Sheets("Process Map").Delete 
Application.DisplayAlerts = True 
ThisWorkbook.Sheets.Add.Name = "Process Map"