White Tiger

LibreOffice Calc Basic - 新しいシートを挿入する方法

◆insertNewByNameメソッド

　LibreOffice Basicでシートの新規挿入を行うには insertNewByName メソッドを使用します。
　次の例では、新規に挿入する名前を持ったシートがあるかどうかを確認してから挿入しています。insertNewByName メソッドの最初の引数は新規に挿入するシートの名前です。二つ目の引数はシートを挿入するインデックスです。ほかのシートのインデックスは変更されます。

Sub InsertNewsheet
    Dim oDoc As Object
    Dim oSheets As Object
    Dim sSheetName$
    
     sSheetName = "NewSheet"
     oDoc = ThisComponent
     oSheets = oDoc.getSheets()
     If NOT oSheets.hasByName(sSheetName) Then
     　　　oSheets.insertNewByName(sSheetName,0)
     End If
End Sub

　なお、上記コードに含まれる次の2行は、Calc ドキュメントにあるすべてのシートを含むシートコンテナオブジェクトを取得します。

oDoc = ThisComponent
oSheets = oDoc.getSheets()

Link