向 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