使用VBA将XLSM转换为CSV时如何保留前导零与0.00格式的小数数值？

Excel自带的xlCSV导出机制存在固定逻辑缺陷：导出时只会写入单元格存储的原始值，完全忽略单元格的显示格式设置，不管你把单元格格式设为两位小数、带前导零的样式，导出的CSV文件里只会存原始数值，这就是你反复调整格式、手动另存、粘贴带格式值都失效的核心原因。
另外你的现有代码存在明确的逻辑错误：FormatDecimal子过程给Sheet1设置了格式，但实际导出的工作表是"Foundation Budget Template"，格式设置根本没有作用到待导出的内容上。

1. 修正格式设置的表引用错误
   调整原有FormatDecimal过程的目标工作表，仅用于统一工作表内的显示效果，方便人工校验：

   Sub FormatDecimal()
       With ThisWorkbook.Sheets("Foundation Budget Template")
           .Range("C2:K100").NumberFormat = "0.00"
       End With
   End Sub
   

2. 替换原有CSV导出逻辑，绕开Excel自动导出的格式限制
   放弃原有“复制工作表再用SaveAs存为xlCSV”的实现方式，改为逐格读取内容、按目标规则转成固定格式字符串后，直接写入纯文本CSV文件，完全自主控制每个字段的输出格式：

   Sub CSV_Convert()
       Dim FilePath        As String
       FilePath = ThisWorkbook.FullName
       Dim Sp()            As String
       Dim Ffn             As String
       Dim CSVfile         As String
       Dim ws As Worksheet
       Dim LastRow As Long, LastCol As Long
       Dim RowIdx As Long, ColIdx As Long
       Dim ExportContent As String
       Dim FileNum As Integer
       
       Set ws = ThisWorkbook.Sheets("Foundation Budget Template")
   
       ' 原有文件名拼接逻辑保持不变
       Sp = Split(FilePath, "\")
       Sp(7) = Split(Sp(4), "-")(0) & "import-TMP-IFI-REV12"
       Ffn = Join(Sp, "\")
       CSVfile = Ffn & ".CSV"
   
       ' 获取工作表实际使用的数据范围
       LastRow = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
       LastCol = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1
   
       ' 逐行逐列拼接CSV内容
       For RowIdx = 1 To LastRow
           For ColIdx = 1 To LastCol
               Dim cellVal As Variant
               cellVal = ws.Cells(RowIdx, ColIdx).Value
               
               ' 按列位置匹配格式规则
               Select Case ColIdx
                   ' C-K列（第3-11列）强制输出两位小数
                   Case 3 To 11
                       If IsNumeric(cellVal) Then
                           ExportContent = ExportContent & Format(cellVal, "0.00")
                       Else
                           ExportContent = ExportContent & Replace(cellVal, """", """""")
                       End If
                   ' 如需保留前导零，在此处添加对应列的规则，示例：
                   ' ' 假设A列（第1列）需要保留5位前导零
                   ' Case 1
                   '     If IsNumeric(cellVal) Then
                   '         ExportContent = ExportContent & Format(cellVal, "00000")
                   '     Else
                   '         ExportContent = ExportContent & Replace(cellVal, """", """""")
                   '     End If
                   ' 其余列按原始值输出，自动转义CSV要求的双引号
                   Case Else
                       ExportContent = ExportContent & Replace(cellVal, """", """""")
               End Select
               
               ' 列之间插入分隔逗号
               If ColIdx < LastCol Then ExportContent = ExportContent & ","
           Next
           ' 行尾插入Windows标准换行符
           ExportContent = ExportContent & vbCrLf
       Next
   
       ' 直接将拼接好的内容写入CSV文件
       FileNum = FreeFile()
       Open CSVfile For Output As #FileNum
       Print #FileNum, ExportContent
       Close #FileNum
   End Sub
   

• 原有CopyValues中粘贴带数字格式值的操作可以保留，用于匹配工作表显示效果，但真正的格式保障来自逐格转字符串的导出逻辑，和Excel自动导出的格式无关。
• 前导零的保留只需在Select Case块中添加对应列的转换规则，格式符按需要的前导零长度调整即可，比如需要3位前导零就写Format(cellVal, "000")。
• 这种导出方式完全不受Excel区域设置、导出编码的额外干扰，输出的CSV内容和你在工作表里设置的显示格式完全一致。

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