※ ChatGPTを利用し、要約された質問です（原文：文字コードをutf-8で保存したい）
文字コードをutf-8で保存したい
このQ&Aのポイント
ACCESS VBAでutf-8で文字コードを保存する方法について質問があります。
質問者さんは現在、シフトJISで保存されてしまっているtest.htmlをutf-8で保存したいと考えています。
具体的には、作成したVBAのコードを見せており、コード内で文字コードを指定する部分があることがわかります。
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
*********************
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
