vba - 使用 for 循环在工作簿中添加新工作表

Question

我正在尝试编写一个 For...Next 循环来在 Workbook 中创建一定数量的 Worksheet。工作表的数量是由用户在早些时候从仪表板设置的。

有人能指出我正确的方向吗？到目前为止，这是我的代码:

For i = 1 To siteCount
    'I know the below won't work, and I also tried site_ & i, but no luck
    Set site_i = Sheets.Add(after:=Sheets(Worksheets.Count))
    site_i.Name = "Sheet Name"
Next i

Answer 1

通过一些小的调整，您的代码基本上可以工作:

Option Explicit

Sub AddSheets()

    Dim siteCount As Integer
    Dim i As Integer
    Dim site_i As Worksheet

    siteCount = 4

    For i = 1 To siteCount
        Set site_i = Sheets.Add(after:=Sheets(Worksheets.Count))
        site_i.Name = "Sheet_Name_" & CStr(i)
    Next i

End Sub