Excel宏写入文件乱码解决

Excel宏写⼊⽂件乱码解决

在Excel的宏代码中， 可以实现将Excel单元格等内容写⼊本地⽬录的⽂件中， 但是某些状况下写⼊到⽂件的内容如有包含中⽂的话， 则有

可能出现乱码。本篇介绍乱码场景与不同版本操作系统的解决办法。

⽰例代码与乱码场景

在宏中的输⼊的代码如下：

Sub output()

Open "" For Output As #1

Cells(1, 1).Select

Print #1, Cells(1, 1).Value

End Sub

以上代码是把第⼀个单元格中的内容写⼊ ⽂件中。

如单元格中输⼊的是中⽂，在某些机器上执⾏正常， 但是在某些机器执⾏后产⽣的⽂件中⽂会变成问号， 类似 。

该问题出现原因之⼀就是操作系统的语⾔设置原因，解决⽅法是设置操作系统的language for non-Unicode program的值。

Windows 10 设置⽅法

1. 打开控制⾯板

2. 点击 “时钟和区域”

3. 点击区域，进⼊ “管理” 标签页， 点击“更改系统区域设置”， 选择“中⽂” 之后进⾏保存。

4. 保存后需要重启服务器。

Windows Server 2016 的设置⽅法

1. 邮件单击左下⾓“开始”图标， 选择“Control Panel”

2. 点击 “Cloc,Lanugage and Region”

3. 点击 Region

4. 在新开窗⼝， 点击“Administrative” 标签页

5. 在下⽅的 “Language for non-Unicode progrems ” 区块点击 “Change system locale…” 按钮之后， 选择

“Chine(Simplified, China)”后保存。

6. 保存后需要重启服务器。