新建xml文档，并设置文档编码为unicode

糖糖99233 · 发表于 2019-12-8 10:13

本帖最后由糖糖99233 于 2019-12-8 11:05 编辑

myfile = ThisWorkbook.Path & "\" & Format(Cells(2, 16), "YYYY-MM-DD") & Nm & "-共" & Zs & "份第" & Dn & "份-金税2.0单张导入.xml"
myfile.Charset = "Unicode" ‘设置编码格式
If Dir(myfile) <> "" Then Kill myfile

Open myfile For Append As #1

Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "Unicode" & Chr(34) & " ?>" '<?xml version="1.0" encoding="Unicode" ?>

糖糖99233 · 发表于 2019-12-8 10:16

excel生成一个xlm文件，该文件的编码方式为Unicode，然后再写入其他的东西

糖糖99233 · 发表于 2019-12-8 10:22

myfile.Charset = "Unicode" ‘设置编码格式
这里为什么无效

Yalishanda30 · 发表于 2019-12-8 10:31

糖糖99233 发表于 2019-12-8 10:22
myfile.Charset = "Unicode" ‘设置编码格式
这里为什么无效

.Charset 是ADODB.Stream的属性

糖糖99233 · 发表于 2019-12-8 10:44

Yalishanda30 发表于 2019-12-8 10:31
.Charset 是ADODB.Stream的属性

那请教一下这里该怎么设置。

Yalishanda30 · 发表于 2019-12-8 10:45

糖糖99233 发表于 2019-12-8 10:44
那请教一下这里该怎么设置。

没有附件没办法模拟结果

糖糖99233 · 发表于 2019-12-8 11:02

Yalishanda30 发表于 2019-12-8 10:45
没有附件没办法模拟结果

附件来了，主要是“外带圆圈的R”符号在转换后就变成“？”，所以才想到要保存为Unicode格式，然后再写入外带圆圈的R

		自动登录	找回密码
密码			免费注册

[求助] 新建xml文档，并设置文档编码为unicode