こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

文字コードを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
*********************

投稿日時 - 2007-11-13 16:05:50

QNo.3514623

困ってます

質問者が選んだベストアンサー

作成したあとで、EDITOR等で 変換して保存すると言うのは手間なのですけかね?
わざわざ、直接でなくてもとは思いますが・・
http://www.vector.co.jp/soft/dl/winnt/prog/se320375.html
も使えると思います。
http://d.hatena.ne.jp/Cassiopeia/20070512/1178946597
も参考になりますね。

投稿日時 - 2007-11-19 20:42:35

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問