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
arrow
arrow
    全站熱搜

    keven 發表在 痞客邦 留言(0) 人氣()