White Tiger

LibreOffice Calc Basic - アクティブシート名を取得する方法

◆Excelの場合

　Excel VBAでアクティブシート名を取得する方法は、次のようにします。

Sub MyProc()
    Dim wksh As Worksheet
    Set wksh = ThisWorkbook.ActiveSheet
    MsgBox wksh.Name
End Sub

◆LibreOfficeの場合

　LibreOffice Basicでこれを実現する場合は、CurrentControllerオブジェクトのActiveSheetプロパティを取得します。

Sub oActiveSheet
    Dim oSheet as Object
    oSheet = ThisComponent.CurrentController.ActiveSheet
    '又は
    set oSheet = ThisComponent.CurrentController.ActiveSheet
    Msgbox oSheet.Name
End Sub

次の例は、アクティブなシート番号を変数に格納します。

Sub ActiveSheetNoGet( Numeric as integer )
rem **********************************
rem アクティブシートのシート番号を変数に格納
rem **********************************
       dim Numeric as long
       Numeric = ThisComponent.getCurrentController().getActiveSheet().getRangeAddress().Sheet
End Sub

Link