如何在CSV转XLSX过程中使用Text to Column功能确保数据准确？

先转CSV到Excel再手动用分列功能会导致数据异常，要解决这个问题，核心是在打开CSV文件的阶段就直接应用分列规则——利用Excel的Workbooks.OpenText方法就能实现，这个方法本身支持指定分隔符、列数据类型等参数，等价于打开时自动完成Text to Column操作。

原代码的问题点 #

1. 未给Filename参数赋值，应使用定义好的CSV_File_Source路径
2. 参数拼写错误：OriginL应为Origin，ConsequtiveDelimeter应为ConsecutiveDelimiter
3. 缺少保存为XLSX格式的步骤，原代码仅打开了CSV文件，未生成目标输出文件
4. 变量myfile未被使用，可删除

修正后的完整VBA代码 #

Sub CSVtoXLSX_Conversion()
    Dim ObjWorkbook As Workbook
    Dim CSV_File_Source As String
    Dim EXCEL_File_Source As String
    
    ' 定义源CSV路径和目标XLSX路径
    CSV_File_Source = "C:\Downloads\Input.csv"
    EXCEL_File_Source = "C:\Downloads\Output.Xlsx"
    
    ' 打开CSV时直接应用分列规则
    Workbooks.OpenText _
        Filename:=CSV_File_Source, _
        Origin:=-535, ' 繁体中文编码，处理简体中文CSV可改为936
        StartRow:=1, _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=False, _
        Other:=True, _
        OtherChar:=",", _
        FieldInfo:=Array(Array(1, 1), Array(2, 2)), ' 第1列常规格式，第2列文本格式
        TrailingMinusNumbers:=True
    
    Set ObjWorkbook = ActiveWorkbook
    
    ' 将分列后的文件另存为XLSX格式
    ObjWorkbook.SaveAs Filename:=EXCEL_File_Source, FileFormat:=xlOpenXMLWorkbook
    ObjWorkbook.Close SaveChanges:=False ' 关闭原CSV文件（已保存为XLSX，无需再保存CSV）
End Sub

关键参数说明 #

• FieldInfo:=Array(Array(1,1), Array(2,2))：这是实现Text to Column的核心，每个子数组对应一列，第二个元素代表数据类型：
  • 1 = 常规格式
  • 2 = 文本格式（避免身份证、编号等长数字被自动转为科学计数法）
  • 3 = 日期格式
• Origin:=-535：对应繁体中文编码页，处理简体中文CSV建议改为Origin:=936（GB2312编码）
• Other:=True, OtherChar:=","：指定逗号为分隔符，也可以直接把Comma设为True并去掉Other相关参数，效果一致

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