Excel VBA，另存为.txt时保持格式

我将固定宽度的文本文件导入Excel，然后将其导出。我试图弄清楚保存时如何保持格式。
在导入时，我尝试使用.NumberFormat，它在导入时强制格式化，但在导出时会释放格式。

我已导入的文本文件：

我的出口惯例：

Option Explicit
Sub CreateFixedWidthFile(strFile As String, ws As Worksheet, s() As Integer)
  Dim i As Long, j As Long
  Dim strLine As String, strCell As String

  'get a freefile
  Dim fNum As Long
  fNum = FreeFile

 'open the textfile
  Open strFile For Output As fNum
 'loop from first to last row
 'use 2 rather than 1 to ignore header row
  For i = 2 To ws.Range("a65536").End(xlUp).Row
    'new line
    strLine = ""
    'loop through each field
    For j = 0 To UBound(s)
      'make sure we only take chars up to length of field (may want to 
      output some sort of error if it is longer than field)
      strCell = Left$(ws.Cells(i, j + 1).Value, s(j))
      'add on string of spaces with length equal to the 
      'difference in length between field length and value length
        strLine = strLine & strCell & String$(s(j) - Len(strCell), Chr$(32))
    Next j
    'write the line to the file
    Print #fNum, strLine
  Next i
 'close the file
  Close #fNum
End Sub

调用它：

Sub CreateFile()
  Dim sPath As String
  sPath = Application.GetSaveAsFilename("", "Text Files,*.txt")
  If LCase$(sPath) = "false" Then Exit Sub
  'specify the widths of our fields
  'the number of columns is the number specified in the line below +1
  Dim s(5) As Integer
 'starting at 0 specify the width of each column
  s(0) = 10
  s(1) = 2
  s(2) = 9
  s(3) = 10
  s(4) = 1
  s(5) = 20
 'write to file the data from the activesheet
  CreateFixedWidthFile sPath, ActiveSheet, s
End Sub

导出的文本文件（请参阅第6列的格式现在是十进制和科学计数法）：