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
Excelから移行したファイルでマクロが止まる
-
- 記事: 8
- 登録日時: 1月 8, 2014, 5:31 pm
Excelから移行したファイルでマクロが止まる
- 添付ファイル
-
- test_元はexcel.ods
- こちらは例の場所でマクロが止まる。
- (11.29 KiB) ダウンロード数: 224 回
-
- test_OOoで新規作成.ods
- こちらは正常に動く
- (9.23 KiB) ダウンロード数: 229 回
OpenOffice 4.0.11
Windows7 SP1 32bit
Windows7 SP1 32bit