Dim sh1 As Worksheet
'如果沒有「TEST01」的工作表，則set sh1=ThisWorkbook.Worksheets("TEST01")會拋出錯誤。
'所以要加上On Error Resume Next，讓程式可以繼續往下判斷
On Error Resume Next
Set sh1 = ThisWorkbook.Worksheets("TEST01")
'如果sh1是空的（也就是找不到TEST01的工作表物件）
If sh1 Is Nothing Then
'新增工作表並更名為「TEST01」
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "TEST01"
Else
'刪除工作表預設會出現是否確認的警告視窗，
'如果要讓VBA直接刪除工作表，如下列設定為false
Application.DisplayAlerts = False
'刪除名稱為「TEST01」的工作表
Sheets("TEST01").Delete
End If
文章標籤
全站熱搜
