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

マクロの作成、スクリプトの作成、APIの使い方

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

投稿記事by Horino » 3月 3rd, 2012, 5:08 pm

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
OpenOffice ???3.3.0 OS???Windows XP
Horino
 
記事: 6
登録日時: 2月 1st, 2012, 10:55 am

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

投稿記事by yutaka-f » 8月 17th, 2012, 12:10 pm

かなり前の投稿なので、既に解決されているかもしれませんが、
返信が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( "時系列表" )
のところでは、エラーは特に発生しませんでした。

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

以上、ご報告まで。
yutaka-f
 
記事: 4
登録日時: 8月 16th, 2012, 1:54 am


Return to マクロと UNO API

オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]