Excel特殊字符编码异常求助——Power Automate生成文件刷新乱码

问题背景 #

Power Automate生成的Excel文件需支持特殊字符及特定字母：

• 正常显示效果：
  
• Windows端刷新后出现乱码：
  

目前临时方案是通过Mac端刷新可恢复正常显示，但因文件批量生成，逐个修复耗时耗力，需高效解决方法。

可行解决方法 #

1. 调整Power Automate生成文件的编码配置 #

• 若流程是先导出为CSV再转Excel，在「Create CSV table」动作的高级选项中，明确设置编码为UTF-8（带BOM），确保特殊字符被正确编码。
• 若直接创建Excel表格，检查数据源与Excel连接器的字符映射逻辑，避免特殊字符被错误转义。可在写入数据前，对包含特殊字符的字段使用encodeUriComponent函数处理，保证字符完整性。

2. 配置Windows端Excel默认编码 #

• 打开Excel，依次进入「文件」>「选项」>「高级」，找到「常规」区域的「Web选项」，切换到「编码」标签：
  • 将「保存时重新加载文档使用的编码」设置为「UTF-8」
  • 勾选「始终以UTF-8保存」
• 此设置会让Windows端Excel默认采用UTF-8解析和保存文件，从根源避免刷新时的乱码问题。

3. 优化Power Automate数据写入逻辑 #

• 确认上游数据源（如API、数据库）返回的字符编码为UTF-8，且Power Automate中未对数据进行不必要的编码转换。
• 若数据来自HTML或富文本，先通过「Html to text」动作提取纯文本后再写入Excel，避免HTML实体编码导致的乱码。

4. 批量修复现有文件的VBA脚本 #

• 使用以下VBA脚本批量处理已生成的Excel文件，自动刷新并以UTF-8编码保存：

  Sub BatchFixExcelEncoding()
      Dim folderPath As String
      Dim fileName As String
      Dim wb As Workbook
      
      '替换为你的文件存储路径
      folderPath = "C:\你的Excel文件目录\"
      fileName = Dir(folderPath & "*.xlsx")
      
      Do While fileName <> ""
          Set wb = Workbooks.Open(folderPath & fileName)
          '触发所有刷新操作
          wb.RefreshAll
          '等待刷新完成（根据文件大小调整等待时间）
          Application.Wait Now + TimeValue("00:00:03")
          '以UTF-8编码保存（Local:=False 强制使用UTF-8）
          wb.SaveAs Filename:=folderPath & "修复_" & fileName, _
                    FileFormat:=xlOpenXMLWorkbook, Local:=False
          wb.Close SaveChanges:=False
          fileName = Dir
      Loop
  End Sub
  

• 注意：运行脚本前务必备份所有文件，防止数据意外丢失。

内容的提问来源于stack exchange，提问作者Chiriluta Daniel