使用vba宏从excel到xml的Greec数据导出
我正在使用vba宏将数据从excel文件导出到xml文件使用vba宏从excel到xml的Greec数据导出,excel,vba,Excel,Vba,我正在使用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_stri
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
与工作表(“工作表1”)
XMLFileName=“C:\Workspace\Test.xml
idx_字符串=1
打开XMLFileName,输出为#1
打印#1,XMLFileHeader
打印#1“
而(.Range(“Base\u Menue\u strings”).Cells(idx\u string,1)”)
打印#1“”&引号和.Range(“Strings”).单元格(idx#u string,idx#u lang)&引号和
idx_字符串=idx_字符串+1
温德
打印#1“
关闭#1
以
但在xml文件中,我发现的不是Greec字符,而是:
<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>
“e?t?a?s??”
“环境保护署”
“eµa PABX”
“在?斯塔斯?”
有人知道怎么解决这个问题吗?
谢谢我查看后发现XML文件需要保存为启用BOM的UTF-8(字节顺序标记)
我希望这对你有帮助
Philip运行宏的计算机上是否安装了正确的语言包?是否设置了编码?应将xml文件的编码设置为UTF-8。另请参见