OOobbs2/128
質問
Calc ドキュメントに設置したボタンを押した時にダイアログを出し、ダイアログ内のボタンを押した時にダイアログを出した Calc ドキュメントにシートを追加したいのですが、新たにダイアログが出てしまいます。 Sub InsSheetAtLast(sheetName As String) oSheets = StarDesktop.CurrentComponent.Sheets If(Not(oSheets.hasByName(sheetName))) Then oSheets.insertNewByName(sheetName, oSheets.Count) Else MsgBox "その名前は使用されています" End If End Sub 回答
感想,コメント,メモ
|