Excelから移行したファイルでマクロが止まる

スプレッドシート (Calc) について
返信する
arai_kiyoshi
記事: 8
登録日時: 1月 8, 2014, 5:31 pm

Excelから移行したファイルでマクロが止まる

投稿記事 by arai_kiyoshi »

ExcelからOOoに移行したファイルではある特定のマクロを実行するとマクロが止まります。
同じマクロを新規生成したCalcのファイルで実行すると正常に動きます。
 何故でしょうか?

止まるのは下記マクロ中のシート削除です。
ThisComponent.Sheets.removeByName(sfname)

マクロは下記の通り。
----------------------------------------------------------------
Option VBASupport 1
Declare Sub multi2D Lib "C:\Temp\multianal.dll" ()
Sub Macro1()
'
sename=activesheet.name 'sheetの名前
'現在アクティブなシート名
Worksheets(sename).Copy before:=worksheets(1)
'現在アクティブなシートをシートの先頭にコピー
worksheets(1).select
'コピーしたシートを選択
Cells(1, 2).Value = "test"
'印をつける。

dim document as object
document = ThisComponent.getSheets().getByindex(0)
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "Text - txt - csv (StarCalc)"
args1(1).Name = "FilterOptions"
args1(1).Value = "44,34,60,1,,0,false,true,true"

ThisComponent.storeToURL( "file:///C:/temp/_IN.csv", args1())
sfname=activesheet.name 'sheetの名前
worksheets(sename).select

If ThisComponent.Sheets.hasByName(sfname) = True Then
ThisComponent.Sheets.removeByName(sfname)
'このマクロ行を実行した所でExcelから移行したマクロはマクロ停止する。
End If
range("c3").select


end sub
添付ファイル
test_元はexcel.ods
こちらは例の場所でマクロが止まる。
(11.29 KiB) ダウンロード数: 221 回
test_OOoで新規作成.ods
こちらは正常に動く
(9.23 KiB) ダウンロード数: 225 回
OpenOffice 4.0.11
Windows7 SP1 32bit
返信する

“Calc”に戻る