文字コードをutf-8で保存したい
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-transitional.dtd"">"
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
*********************
お礼
友達から書き込んでもらったりして確認してたので遅くなってしまい申し訳ありません。 まさにその通りでした。 ただ、機種によって書込み出来たり出来なかったりしてるみたいなので、もうちょっと調べてみたいと思います。 ありがとうございました。