使用for循环在工作簿中添加新工作表 [英] Use a for loop to add new sheets in workbook

问题描述

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

I am trying to write a For...Next loop to create a set number of Worksheets in a Workbook. The the number of worksheets is set by the user from a dashboard, at an earlier point.

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

Can somebody point me in the right direction? This is my code, so far:

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

推荐答案

稍作调整，您的代码就可以正常工作:

With some small adjustments, your code will basically work:

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

这篇关于使用for循环在工作簿中添加新工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！