Top > OOobbs3 > 42

OOobbs3/42 Edit

  • サマリ: 文字化けを回避したいのですが
  • 環境: Calc
  • 状態: 解決
  • 投稿者: クロッピ?
  • 投稿日: 2010-12-24 (金) 10:15:41

質問 Edit

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から開かないと今のところ日本語がリンク先で文字化けします。 すみませんがいづれかの方法でファイルを開いて日本語を文字化けせずに、そのファイルを閉じる事が出来るようになりたいです。 よろしくご指導お願い致します。

回答 Edit


感想,コメント,メモ Edit

  • 早速のご回答ありがとうございました。無事解決致しました。ご指摘のページも何回も見てたのに理解出来てませんでした。 -- クロッピ 2010-12-24 (金) 21:06:36


Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes