シートを指定してシート名を変更する場合
Sub ksChangeSheetName
Dim objDoc As Object, objSheet as Object
objDoc = ThisComponent
objSheet=objDoc.Sheets(0) <−−シート1番目を変える
objSheet.Name=”test”
End Sub
Activeになっているシート名を変更する場合
アクティブシートを取得してからNameプロパティを変更する。
sub ksChangeCurrentSheetName
dim activeSheet as Object
dim doc as object
doc = ThisComponent.sheets
activeSheet = ThisComponent.CurrentController.ActiveSheet
activeSheet.Name = “testCurrent”
end sub