OOobbs3/42
質問
OpenOffice.org 3.2.0を使用しております。 リンク先のファイルより下記のコードでファイルを開いております。開かないと日本語が文字化けするからです。 sub openregi shell("C:\Program Files\OpenOffice.org 3\program\scalc.exe",2,"F:\Marinafile\FILE004P.CSV") end sub 上記コードでファイルを開いているのですが、この開いたファイルをマクロで閉じる事は可能ですか? また、下記のコードでは文字化けせずに開いて閉じれるのですが、やはりリンク先で日本語が文字化けしてしまいます。 'PLUファイルを開く>閉じる Global oDoc As object Global myFileName As String Sub PLU_open Dim Dummy() myFileName = ConvertToUrl( "F:\Marinafile\FILE004P.CSV") oDoc = StarDesktop.loadComponentFromURL(myFileName, "_blank", 0, Dummy()) End Sub Sub PLU_close If HasUnoInterfaces(oDoc, "com.sun.star.util.XCloseable") Then oDoc.close(true) Else oDoc.dispose() End If End Sub 文字化けしない開き方はありますか? shellから開くとリンク先の日本語は文字化けしないのですが、shellで開いたファイルを閉じる方法が分かりません。WSHをバッチ処理とかでしょうが難しかったです。 shellから開かないと今のところ日本語がリンク先で文字化けします。 すみませんがいづれかの方法でファイルを開いて日本語を文字化けせずに、そのファイルを閉じる事が出来るようになりたいです。 よろしくご指導お願い致します。 回答
感想,コメント,メモ
|