文字コードをutf-8で保存したい

解決済

質問者：smorgas030
質問日時：2007/11/13 16:05
回答数：1件

ACCESS VBAで以下のプログラムを作成しましたが、
文字コードがシフトJISで作成されてしまいます。
utf-8でtest.htmlが出力されるようにしたいのですが、
可能でしょうか。
宜しくお願いします。

*********************
作成したVBAのコード
*********************
Private Sub 1_Click()
Dim fNAME As String 'ファイル名格納用
fNAME = "c:\test.html"
Open fNAME For Output As #1

Print #1, "<?xml version=""1.0"" encoding=""utf-8""?>"
Print #1, "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitio …
Print #1, "<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""ja"" lang=""ja"" xmlns:m=""http://www.seasar.org/maya"">"
Print #1, "<head>"
Print #1, "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"

Print #1, "<meta http-equiv=""Content-Language"" content=""ja"">"
Print #1, "<meta http-equiv=""Content-Style-Type"" content=""text/css"">"
Print #1, "<meta http-equiv=""Content-Script-Type"" content=""text/javascript"">"
Print #1, "<meta name=""Keywords"" content=""キーワード1,キーワード2"" lang=""ja"" xml:lang=""ja"">"
Print #1, "<meta name=""Description"" content=""コンテンツ内容"" lang=""ja"" xml:lang=""ja"">"
Print #1, "</head>"

Print #1, "<body>"
Print #1, "<table>"
Print #1, "…"
Print #1, "…"
Print #1, "</table>"
Print #1, "</body>"
Print #1, "</html>"

Close #1 '閉じる
End Sub
*********************