新規シートを末尾に挿入する

Sub ExampleAddNewSheet2()
       Dim intCount As Integer
       intCount = ThisComponent.Sheets.Count
       ThisComponent.Sheets.insertNewByName("新しい表", intCount)
Msgbox("「新しい表」が末尾に追加されました")
End Sub
  
(カレント)ドキュメントのシート数を取得する為には Count プロパティ
を使用する。
今仮に、対象のスプレッドシートドキュメントに三つのシートが存在した
とすると、
  
ThisComponent.Sheets.Count
  
の値は「3」となる。
既に述べた通り、Calc の一番左のシートから順番に
  
0、1、2
  
とインデックス番号が付けられているので、末尾にシートを挿入する為
には、インデックス番号 3 (=シート数) で新規シートを挿入すれば良い。
  
因みに、シート数を取得するには、Count プロパティの代わりに getCount
メソッドを用いることもできる。すなわち、
  
ThisComponent.Sheets.getCount()
  
でシート数を取得することも可。