関数とサンプル
【覚えておきたい関数】
- シート名重複チェック：getSheets().hasByName(シート名)
- シート挿入：getSheets().insertNewByName(シート名,位置)
- シート削除：getSheets().removeByName(シート名)
- シート名変更：getSheets(シート番号).Name = "新たなシート名"
ソースコード
Sub Main
'アクティブシート取得
Dim oSheets As Object
oSheets = ThisComponent.getSheets()
Dim shtName2 As String
Dim shtName3 As String
shtName2 = "Sheet2"
shtName3 = "Sheet3"
'シート名重複チェック
if oSheets.hasByName(shtName2) = false then
‘Sheet2シート 1シート目の右側に挿入
oSheets.insertNewByName(shtName2,1)
end if
if oSheets.hasByName(shtName3) = false then
‘Sheet3シート 2シート目の右側に挿入
oSheets.insertNewByName(shtName3,2)
end if
'シート名変更
oSheets(1).Name = "Sheet2変更"
'シート名削除 これでSheet3は削除
oSheets.removeByName(shtName3)
End Sub
実行結果
目次はこちら
>> LibreOfficeマクロ入門講座 目次
