08/11/08 18:24:57
Calcの質問です。
別々のドキュメントにあるシートをinsertByNameで結合（移動）させるマクロを作ってみたのですが、
insertByName関数でillegalargumentexceptionという例外が出てしまいます。
解決方法があれば教えてください。
OOoのバージョンは2.41、OSはWinXP SP2です
以下、サンプルコード
Test1.odsに対して、Test2.odsのSheet1というシートをコピーします
Sub TEST
Dim oDoc1 As Object, oSheets1 As Object
Dim oDoc2 As Object, oSheets2 As Object
Dim sSheetName As String
Dim oNewSheet As Object
Dim myFileName1 As String
Dim myFileName2 As String
sSheetName = "NewSheet"
myFileName1 = ConvertToUrl("C:\Test1.ods")
myFileName2 = ConvertToUrl("C:\Test2.ods")
oDoc1 = StarDesktop.loadComponentFromURL(myFileName1,"_blank", 0, Array())
oDoc2 = StarDesktop.loadComponentFromURL(myFileName2,"_blank", 0, Array())
oSheets1 = oDoc1.getSheets()
oSheets2 = oDoc2.getSheets()
oNewSheet = oDoc2.Sheets.getByName("Sheet1")
oSheets1.insertByName(sSheetName, oNewSheet)
End Sub