Excel数据转换为XML使法语单词出现错误字符_Xml_Excel_Vba_Utf 8_Character Encoding

Excel数据转换为XML使法语单词出现错误字符

xml excel vba utf-8 character-encoding

Excel数据转换为XML使法语单词出现错误字符,xml,excel,vba,utf-8,character-encoding,Xml,Excel,Vba,Utf 8,Character Encoding,我有XML的测试脚本，我需要从Excel表翻译。我正在从Excel表格中搜索英语单词，然后将它们翻译成德语、法语和意大利语。我对法语单词有问题我在VBA中使用宏。当我在法语中查找英语单词对应的单词时，我使用的是函数Find。当我在Excel工作表中找到法语单词时，我只是将int保存到字符串中代码默认情况下，CreateTextFile以ASCII编码创建文件。为了将其另存为UTF-8，我们必须在创建文本文件时设置它 Set fGermanOutputFile = fso.CreateTex

我有XML的测试脚本，我需要从Excel表翻译。我正在从Excel表格中搜索英语单词，然后将它们翻译成德语、法语和意大利语。我对法语单词有问题

我在VBA中使用宏。当我在法语中查找英语单词对应的单词时，我使用的是函数Find。当我在Excel工作表中找到法语单词时，我只是将int保存到字符串中

代码

默认情况下，CreateTextFile以ASCII编码创建文件。为了将其另存为UTF-8，我们必须在创建文本文件时设置它

Set fGermanOutputFile = fso.CreateTextFile((strFolderPath & "_German.xml"), True, True)
Set fItalianOutputFile = fso.CreateTextFile((strFolderPath & "_Italian.xml"), True, True)
Set fFrenchOutputFile = fso.CreateTextFile((strFolderPath & "_French.xml"), True, True)

第一个参数是您的文件名，第二个参数是True表示覆盖，第三个参数是True表示使用Unicode与ASCII

欢迎来到这个网站！你能把密码寄出去吗？非常感谢你。。。因为我真的迷路了。我是VBA新手，甚至这段代码对我来说都很难。现在我不知道如何处理这个编码问题。顺便说一句，我怎么能把图像直接放在这里？一位版主在我的第一篇帖子中更改了它，我很乐意提供帮助。乍一看，您在哪里使用rngFrenchDictionary将是您关注的焦点？这本字典调用任何外部组件吗？windows-1552是许多旧组件的默认编码。你能举一个角色不正确的例子吗？@JimmySmith你能打开我贴在帖子上的图片链接吗？作为新成员，我只能发布链接。。。这里有一个错误解释的例子words@JimmySmithrngFrenchDictionary实际上是excel工作表中的.Range类型，定义为G9:G1000，当我知道intWordToReplaceIndex的行数时，我将字符串从该单元格放入字符串strFrenchLine。截图上的错词是TrèsélevéeThank先生，非常感谢您！它正在工作！你甚至不知道我现在有多幸福！

Set fGermanOutputFile = fso.CreateTextFile((strFolderPath & "_German.xml"), True, True)
Set fItalianOutputFile = fso.CreateTextFile((strFolderPath & "_Italian.xml"), True, True)
Set fFrenchOutputFile = fso.CreateTextFile((strFolderPath & "_French.xml"), True, True)