- サマリ: 文字化けを回避したいのですが
- 環境: Calc
- 状態: 解決
- 投稿者: クロッピ?
- 投稿日: 2010-12-24 (金) 10:15:41
質問 
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から開かないと今のところ日本語がリンク先で文字化けします。
すみませんがいづれかの方法でファイルを開いて日本語を文字化けせずに、そのファイルを閉じる事が出来るようになりたいです。
よろしくご指導お願い致します。
回答
感想，コメント，メモ
- 早速のご回答ありがとうございました。無事解決致しました。ご指摘のページも何回も見てたのに理解出来てませんでした。 -- クロッピ
