向 excel 工作簿添加新工作表

Question

我正在嘗試在我的工作簿中添加一個新工作表，並且我能夠在網上找到一些建議。 我最終使用了這段代碼，但由於某種原因，它不起作用。 我不知道為什么，因為對我來說邏輯是有道理的，而且語法似乎沒有問題。 我猜這是我看不到的東西，因為我是 VBA 的新手，我真的可以使用某人的輸入。

Private Sub PopulateTaskList()

'Adds new sheet called task list
    Dim exists As Boolean
    Dim i As Integer
   
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Task List" Then
        exists = True
        Else
            If exists = False Then
                Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Task List"
            End If
        End If
    Next i

End Sub

Answer 1

檢測到時請改用Exit Sub 。

這樣，如果它脫離了循環（但沒有脫離子），你就知道它還沒有被創建。

Private Sub PopulateTaskList()
    'Adds new sheet called task list
    Dim i As Integer
   
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Task List" Then Exit Sub
    Next
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Task List"

End Sub