アプリケーション定義またはオブジェクト定義のエラー

Question

は、私が使用してシートを追加しようとしています：ThisWorkbook.Sheets.Add

は、私は1枚のシートを追加することですが、私は2枚を追加しようとすると、それは私にエラーを与える：アプリケーション定義またはオブジェクト定義のエラー。ここで

はシートを追加するコードです：

Application.ScreenUpdating = False 
Dim ws As Worksheet 
Set ws = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count), Count:=2, Type:="C:\Users\TestUser\Desktop\TestWorksheet.xltm") 
Set ws = Nothing 
Application.ScreenUpdating = True 

私はCount:=1を変更すると、それが正常に動作しますが、それはあなたのようにそれを設定するためです事前

Answer 1

、あなたがxlChart（デフォルトである）xlWorksheet、を追加しようとしているときのみ動作します「カウント」xlExcel4MacroSheet、またはxlExcel4IntlMacroSheetを含めることはできません。

あなたがxlWorksheetが含まれていない場合であっても

Sub Sample1() 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count), Count:=5, Type:=xlWorksheet) 

    Set ws = Nothing 
End Sub 

例えばそれは、デフォルトで取られるように、それは大丈夫です。

テンプレートから追加するときは、ループで行う必要があります。たとえば、

Sub Sample2() 
    Dim ws As Worksheet 
    Dim i As Long 

    Application.ScreenUpdating = False 

    i = 1 

    Do While i < 3 '<~~ Adding 2 times 
     Set ws = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count), _ 
     Type:="C:\Users\TestUser\Desktop\TestWorksheet.xltm") 
     i = i + 1 
    Loop 

    Set ws = Nothing 

    Application.ScreenUpdating = True 
End Sub 

Answer 2

でCount:=2

感謝のエラーを表示しますWSは、ワークシートとして定義されています。だから、複数のワークシート