すみません、私も勘違いしていました。
oCalcDoc.close()の引数、True、Falseは保存の指示のための引数ではありません。
oCalcDocがプリントジョブ実行中とかで閉じれない状態の時に、強制的に閉じるかどうかを指定する引数のようです。
oCalcDoc.close()の引数、True、Falseは保存の指示のための引数ではありません。
oCalcDocがプリントジョブ実行中とかで閉じれない状態の時に、強制的に閉じるかどうかを指定する引数のようです。
保存は下記のようになるかと思います。
---
'***** OpenOffice.org Calcの保存のコードサンプル *****
Call ConnectOSM()
---
'***** OpenOffice.org Calcの保存のコードサンプル *****
Call ConnectOSM()
Dim OpenPar(0) As Object
'OpenPar(0) = MakePropertyValue("Hidden", True)
OpenPar(0) = MakePropertyValue("Hidden", False)
'OpenPar(0) = MakePropertyValue("Hidden", True)
OpenPar(0) = MakePropertyValue("Hidden", False)
oCalcDoc = ODesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, OpenPar)
Dim oSheet as Object
oSheet = oCalcDoc.Sheets.getByIndex(0)
oSheet.getCellByPosition(0,0).String = "テスト"
oSheet = oCalcDoc.Sheets.getByIndex(0)
oSheet.getCellByPosition(0,0).String = "テスト"
Dim MyFileNameUrl As String = ConvertToUrl( "C:\test.ods" )
Dim SavePar(0) As Object
SavePar(0) = MakePropertyValue("Overwrite", True)
Dim SavePar(0) As Object
SavePar(0) = MakePropertyValue("Overwrite", True)
oCalcDoc.storeAsURL(MyFileNameUrl, SavePar)
oCalcDoc.close(True)
---
oCalcDoc.close(True)
---
ConnectOSM()とoDesktop 、
MakePropertyValue関数と
ConvertToUrl関数は
http://yorozuya.exeexe.net/vbdotnet_ooo/function001.html
と
http://yorozuya.exeexe.net/vbdotnet_ooo/function002.html
を見て下さい。
MakePropertyValue関数と
ConvertToUrl関数は
http://yorozuya.exeexe.net/vbdotnet_ooo/function001.html
と
http://yorozuya.exeexe.net/vbdotnet_ooo/function002.html
を見て下さい。
function002.htmlの関数はfunction001.htmlの変数、関数を継承しているものがあります。
(function002.htmlだけでは動かないものがあります。)
すみません、ややこしくて…
(function002.htmlだけでは動かないものがあります。)
すみません、ややこしくて…