Excel宏使用FieldInfo转固定宽文本为CSV时末尾空字段丢失如何处理

Excel Workbooks.OpenText 方法处理固定宽度文本时存在默认逻辑：如果定义的最后一个字段在所有行中均为空，方法会自动裁剪该字段，不会在工作表中生成对应列，最终导出CSV时就会丢失该空字段。

最便捷的修复方式是主动在FieldInfo参数末尾补充一个超出单条记录总长度的边界定义，强制Excel保留最后一个空字段。
你提供的代码中FieldInfo定义了三个字段，起始位置分别是0、10、15，假设你的单条固定宽度记录总长度为25（可根据实际业务调整数值），修改后的代码如下：

txtFile = "Input.txt"
Workbooks.OpenText Filename:= _
    txtFile, Origin:=437 _
    , StartRow:=1, DataType:=xlFixedWidth, TextQualifier:=xlDoubleQuote, FieldInfo:=Array(Array(0, 2), Array(10, 2), Array(15, 2), Array(25, 2)) _
    , TrailingMinusNumbers:=True
' 可选：如果确认最后一列全空，可在此处给最后一列第一行加临时占位符，避免保存时丢失列
' Cells(1, UBound(FieldInfo)+1) = "tmp"
Dim outputFile As String
    outputFile = "Output.csv"
    ActiveWorkbook.SaveAs Filename:=outputFile, FileFormat:=xlCSV, CreateBackup:=False
' 可选：如果加了临时占位符，保存后可打开CSV删除第一行的占位符内容即可

• 上述代码中FieldInfo末尾新增的Array(25, 2)里的25需要替换为你实际的单条记录总长度，只要数值大于等于所有记录的最大行长度即可生效
• 如果无法提前确定记录总长度，可以先写逻辑读取文本文件的最长行长度，动态生成FieldInfo数组
• 若修改FieldInfo后仍存在空字段丢失问题，可使用代码中注释的临时占位符方案，强制Excel识别该列存在

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