如何将XLSX保存为CSV并强制统一字段封装？

针对你遇到的CSV字段封装不一致问题，这里有几种实用方法可以让所有字段都强制带上双引号：

1. Excel内置手动替换法 #

• 打开目标XLSX，选中要导出的整张表格
• 按Ctrl+H打开替换框：
  1. 先在「查找内容」填一个文档里没用到的特殊字符（比如§），「替换为」填"，点全部替换
  2. 再清空「查找内容」，「替换为」还是填"，再次点全部替换
• 现在所有单元格内容前后都加了引号，直接另存为CSV(逗号分隔)(*.csv)就行

2. Power Query批量处理 #

• 打开Excel，点「数据」→「获取数据」→「从文件」→「从工作簿」，选中你的XLSX
• 在Power Query编辑器里：
  1. 选中所有列，右键→「转换」→「格式」→「添加前缀」，输入"
  2. 同样选中所有列，右键→「转换」→「格式」→「添加后缀」，输入"
• 点「关闭并上载」把处理后的数据导入新表，再另存为CSV

3. Python脚本高效处理（适合大量文件） #

如果要批量转文件，用Python更省事，示例代码：

import pandas as pd

# 读取XLSX文件
df = pd.read_excel("你的文件路径.xlsx")
# 给每个单元格内容前后加双引号
df = df.applymap(lambda x: f'"{x}"')
# 保存为CSV，禁用自动引号避免重复封装
df.to_csv("输出文件路径.csv", index=False, quoting=3, sep=',')

4. VBA宏一键生成 #

按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Sub SaveCSVWithAllQuotes()
    Dim ws As Worksheet
    Dim savePath As String
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim csvContent As String
    
    Set ws = ActiveSheet
    savePath = Application.GetSaveAsFilename(FileFilter:="CSV Files (*.csv), *.csv")
    
    If savePath = "False" Then Exit Sub
    
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    For i = 1 To lastRow
        For j = 1 To lastCol
            csvContent = csvContent & """" & Replace(ws.Cells(i, j).Value, """", """""") & """"
            If j < lastCol Then csvContent = csvContent & ","
        Next j
        csvContent = csvContent & vbCrLf
    Next i
    
    Open savePath For Output As #1
    Print #1, csvContent
    Close #1
    
    MsgBox "CSV已保存：" & savePath
End Sub

• 回到Excel按Alt+F8运行宏，选好保存路径就能生成全字段带引号的CSV

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