シートの枚数を調べる。

　寄り道をしてみた。
　左下に表示されている「シート 1/7」と表示されている「7」を拾うのだ。

　コードは以下のとおり。

Sub main
    oSheets= ThisComponent.Sheets
    oNum = oSheets.getCount()
    oDisp = "Sheet の全枚数は " & oNum & " 枚です。"
    msgbox oDisp,0,"Sheet枚数取得"
End Sub

　これでシートの追加を先頭ではなくて最後にすることが出来るな。

　ついでに変数の型を定義しなくても変数を使えるということで試してみた。

　今回のようにちょっと試していくのには便利だな。