エクセルからUTF8でファイルを出力する方法。
エクセルのマクロでシートの内容をXMLに変換して出力するマクロを作成しています。ファイルオブジェクトを利用しているのですが、保存されたドキュメントがシフトJISとなってしまい、そのまま利用できません。
UTF8形式で保存したいのですが、どなたかサンプルなど提供していただけませんでしょうか?
以下、作成中のサンプルコードです。
----
Sub XMLMake(wksheetname As String)
'列名取得
'ファイルオブジェクト作成
Dim objFile As Object
Dim objTextFile As Object
Dim strFileName As String
Set objFile = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFile.CreateTextFile("d:\" & wksheetname & ".xml", True)
'ルートノード作成
objTextFile.WriteLine ("<DATA>")
'ルートノード閉じ
objTextFile.WriteLine ("</DATA>")
'ファイルオブジェクト保存
objTextFile.Close
MsgBox ("ファイルを作成しました。:" & wksheetname & ".xml")
End Sub
お礼
はい。WORDの検定の出題内容です。まだまだ勉強不足だということがわかりました。 もう少し自分で勉強してみます。ありがとうございました。