手始めにGuideのセルと範囲にある例題を実行しようとしていますが、つぎのエラーとなります。
次のプロパティまたはメソッドが見付かりません。
sheets
どのようにしたら正常に実行できるでしょうか
コード: 全て選択
sub Delete_sort_area
dim oDoc as object
dim oDispatcher as object
dim oCellRange, oSheet as object
On Error Goto ErrorHandler
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
On Error Goto ErrorHandler
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName( "時系列表" ) 'ここでエラー
CellRangeAddress.Sheet = 1
CellRangeAddress.StartColumn = 1
CellRangeAddress.StartRow = 1
CellRangeAddress.EndColumn = 4
CellRangeAddress.EndRow = getNumber_of_rows() + 1
Sheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.UP)
exit sub
ErrorHandler:
MsgBox "エラー in Delete_sort_area : line #" & Erl & " error = " & Error
end sub