エクセルVBA私はコードを2枚持っているブックを作成し、シート

Question

（エクセル2007）

を取り込みます。

一つは作成して保存し、新しいExcelブックを：

Sub NewWorkBook() 

Set NewBook = Workbooks.Add 
    With NewBook 
    .SaveAs Filename:="NewBook.xlsx" 
    End With 

End Sub 

他のワークシートを作成します。

Public Sub CreateWorksheets() 

Dim n As Integer 
n = 1 
Dim WrkSheet As Worksheet 
For n = 1 To 31 
    If n > Worksheets.Count Then 
    Set WrkSheet = Sheets.Add(After:=Sheets(Worksheets.Count)) 
    Else 
    Set WrkSheet = Sheets(Worksheets.Count) 
    End If 
WrkSheet.Name = n 
Next n 
End Sub 

私は「ワークブックB」を作成するためにこれらを使用し、ワークシートを移入する必要がありますが、すべてのコードは 'Workbook A'から実行する必要があります。

ブックを作成するための最初のサブを取得できますが、CreateWorksheetsサブはコードを含むワークブックでのみ動作し、1回だけシートを除いてすべて削除します。

アイデア？

Answer 1

Sub NewWorkBookAndSheets() 
Dim NewBook As Workbook 
Dim n As Integer 
Dim start As Integer 

Set NewBook = Workbooks.Add 
With NewBook 
    start = .Worksheets.Count + 1 
    if start < 31 then 

    For n = start To 31 
      .Sheets.Add After:=Sheets(n - 1) 
    Next n 
    For n = 1 To 31 
     .Worksheets(n).Name = n 
    Next n 
    end if 
    .SaveAs Filename:="NewBook.xlsx" 
End With 

End Sub