シート数とシート名 Libreoffice Calc Basic

Libreoffice Calc Basic シート数　と　シート名

Sub sheetsname_count()
'
'compnent(book)のシート名とシート数
'
'シート名　ThisComponent.Sheets.GetCount()
'シート名　ThisComponent.Sheets().Name
'
    mySheet=ThisComponent.Sheets

'シート数

    mySheetsCount=mySheet.getcount()

'print mySheetsCount

'シート名

    for i=0 to mySheetsCount-1
        mysheetName=mysheetName & mySheet(i).Name & chr(10)
    next i

    msgbox mysheetName,,"シート名一覧"
   
End Sub