excel - vbaマクロを使用したExcelからxmlへのギリシャ語データのエクスポート

Question

私はvbaマクロを使用してExcelファイルからxmlファイルにデータをエクスポートしています。

With Worksheets("Worksheet1") 
XMLFileName = "C:\Workspace\Test.xml
idx_string = 1
Open XMLFileName For Output As #1
Print #1, XMLFileHeader
Print #1, "<resources>"
While (.Range("Base_Menue_strings").Cells(idx_string, 1) <> "")
Print #1, " <string name=" & Quotation & .Range("Base_Menue_strings").Cells(idx_string, 1) & Quotation & ">" & Quotation & .Range("Strings").Cells(idx_string, idx_lang) & Quotation & "</string>"
idx_string = idx_string + 1
Wend
Print #1, "</resources>"
Close #1
End With

しかし、xmlファイルでは、ギリシャ語の文字の代わりに、次のことがわかりました。

 <resources>
 <string name="dial_mode">"?e?t?????a ???s??"</string>
 <string name="flash_duration">"?????e?a epa?????s??"</string>
 <string name="pabx_title">"????eµa PABX "</string>
 <string name="pabx_status">"?at?stas?"</string>
 </resources>

誰かがこれを解決する方法を知っていますか？ありがとう

Answer 1

ここを調べたところ、 BOM を有効にして XML ファイルをUTF-8 として保存する必要があることがわかりました(バイト オーダー マーク)。

フィリップ