工作表格增刪

檢查是否已存在工作表,若有就刪除舊的,新增新的

1. 使用Worksheet物件

     Dim sh1 As Worksheet

2.  如果有名稱為舊的工作表的表格就刪除

     If sh1.Name = NewWorkspaceName Then sh1.Delete

3.  在sheet1表格後,新增名字為NewWorkspaceName參數內值的表格

     

     Set sh = Worksheets.Add(after:=Worksheets("sheet1"))

     sh.Name = NewWorkspaceName

  

     如果要在sheet1表格前新增

     Set sh = Worksheets.Add(before:=Worksheets("sheet1"))

Sub addwokspace(NewWorkspaceName As String)

Dim sh1 As Worksheet

For Each sh1 In ThisWorkbook.Sheets

'關閉刪除工作表時彈出的對話框

Application.DisplayAlerts = False

'如果有名稱為NewWorkspaceName的表格就刪除

If sh1.Name = NewWorkspaceName Then sh1.Delete

Next

'在sheet1之前新增一個工作表

Set sh = Worksheets.Add(after:=Worksheets("sheet1"))

'給新的工作表命名為NewWorkspaceName

sh.Name = NewWorkspaceName

End Sub