ページ 11

Sheetsというプロパティまたはメソッドが見付かりません

投稿記事Posted: 3月 3rd, 2012, 5:08 pm
by Horino
BASIC Guideを参考にして、マクロを勉強しています。
手始めに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

Re: Sheetsというプロパティまたはメソッドが見付かりません

投稿記事Posted: 8月 17th, 2012, 12:10 pm
by yutaka-f
かなり前の投稿なので、既に解決されているかもしれませんが、
返信が0ではなんか寂しいので記入しますね。

openoffice 3.4.0 で記入されたコードをそのまま実行すると

Sheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.UP)
のところでエラーになります。

oSheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.UP)
にしたら、エラーはなくなりました。

oSheet = oDoc.Sheets.getByName( "時系列表" )
のところでは、エラーは特に発生しませんでした。

実行時に”時系列表”シートがあるファイルを選択してなかったとかだったのかな?

以上、ご報告まで。