Sheets.Addを使用して、Afterパラメータを使用してエラー "予期されるステートメント"

Question

私は、既存のワークブックにワークシートを追加しようとしています。 Sheets.Addを使用して正常に追加できますが、いつでもAfterパラメータを使用しようとすると、 "Expected Statement"というエラーが表示されます。 VBSは私の:=オペレータが好きではないようです。これは動作するはずかのようにエクセルのマクロエディタを使用して

、それはそうです：

Sheets.Add After:=ActiveSheet 

またはこの：

Sheets("Sheet1").Move After:=Sheets(4) 

いずれかの方法で、私は予想ステートメントエラーに遭遇します。私はさまざまなオンラインの例を試したが、正しい構文を見つけることができない。 FWIW、これはWindows 10で実行されているOffice 16の新しいインストールです。

Answer 1

wbにシートの名前とシートの名前を設定することをお勧めします。

Sub AddSheet() 

Dim wb As Workbook 
Dim sht As Worksheet 

'better to use this reference to wb object >> modify to your Workbook name 
Set wb = Workbooks("Book1.xlsm") 

'better to use this reference to sht object >> modify to your Sheet name 
Set sht = wb.Sheets("Sheet2") 

wb.Sheets.Add After:=wb.Sheets(sht.Index) 

End Sub 

Answer 2

"名前で引数を渡す"は、VBScript構文ではサポートされていません。代わりに、 "位置で引数を渡す"とする必要があります。例えば

Sheets.Add Null, ActiveSheet 
Sheets("Sheet1").Move , Sheets(4) 

参考：
https://msdn.microsoft.com/en-us/library/office/ff838966.aspx
https://msdn.microsoft.com/en-us/library/office/ff834742.aspx

Answer 3

あなたの問題は、二つの理由から発生している：あなたはExcelアプリケーションオブジェクトの一部であるオブジェクトを使用しようとしているので、

A） VBScriptにそのことを伝えずに作成したもの（xlApp）と

b）becau se VBScriptは、「名前付きパラメータ」の概念をサポートしていません（少なくとも、わかっていない限り）。したがって、位置パラメータを使用する必要があります。

Sheetsというだけでは、xlApp.Sheetsとは全く異なります。After:=の構文は有効なVBScriptコードではありません。

次のコードは、私の作品：

Set xlApp=CreateObject("Excel.Application") 
Set wb=xlApp.Workbooks.Add 
xlApp.Sheets.Add.Name="Test1" 
xlApp.Sheets.Add.Name="Test2" 
xlApp.Sheets.Add , xlApp.ActiveSheet 
xlApp.Sheets.Add , xlApp.Sheets("Test1") 
wb.SaveAs "TestWorkbook.xlsx" 
wb.Close False 

（私の非常に最初のVBScriptのアプリケーション - woohoo !!）