Libre:024 ワークシートの数を数える

シートオブジェクトを取得した後、

getCount()メソッドでシートの数を取得する。

 

Sub ksSheetCounter
dim objSheets as object
dim number as integer
dim displayText as string

objSheets= ThisComponent.Sheets
number = objSheets.getCount()
displayText = “Sheet枚数 : ” & number
msgbox(displayText, 0, “”)

End Sub