excel - 在我的 excel 宏中使用 FieldInfo = Array(Array(0, 2), Array(10, 2), Array(15, 2)) 的问题

Question

我在我的 excel 宏中使用 FieldInfo 以便将固定长度的文本文件转换为 csv 文件。每当文本文件中的最后一个字段为空时，它就会被忽略。我希望在我的输出 csv 文件中填充一个空字段值。我该如何做到这一点？脚本片段：

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)) _
    TrailingMinusNumbers:=True
Dim outputFile As String
    outputFile = "Output.csv"
    ActiveWorkbook.SaveAs Filename:=outputFile, FileFormat:=xlCSV, CreateBackup:=False

标签： excelvba

Answer 1

我能够通过填充不需要列的文件头来解决此问题。这会自动强制上述代码在数据行中插入空列。