エクセルから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

No.1 ベストアンサー 回答者： sesami 回答日時： 2002/05/13 16:17

ActiveWorkbook.WebOptions.Encoding = msoEncodingUTF8

って意味ですか？
保存ダイヤログのツール(L）-WEBオプション(W)で
エンコードを指定できますよ。
勘違いだったらごめんなさい

この回答へのお礼

回答ありがとうございます。
マクロで自動で保存するようにしたかったので、
もし方法を知っていれば教えてください。

お礼日時：2002/05/19 20:06