在启用I / O的情况下添加到.CSV时，保持前导零完好无损

Question

标题很乱，我道歉。不确定最好的说法，所以如果你有更好的建议，请。

我运行的脚本，但是我无法保持前导零。我试图插入.NumberFormat =“@”，但我只能在创建文件后才这样做。当我将文本放入文件并添加它时，我也尝试在前导零处添加“'”，但不会应用它。它只是将“'”保持在零前面。

连连呢？提前谢谢！

原始号码：00099999 ---- 目前添加到文件中：99999 ---- 如果我添加“'”，它会将文件添加为：'00099999

以下是片段：

FName = i & "_INPUT" & ".csv"

If FName = False Then
  Exit Sub 'user cancelled
End If
FNum = FreeFile
Open FName For Output Access Write As #FNum
  For Each ir In range
    If ir > 0 Then
      strtest = ir
      newnum = ExtractNumber(strtest)
    End If

    S = newnum & Chr(9) 'build each line
    S = Left(S, Len(S) - 1) 'remove trailing tab

    Print #FNum, S 'print to file

  Next ir
  Close #FNum
End If

Answer 1

您是如何测试CSV文件的？如果你在Excel中重新打开它，它将删除那一点的前导零 - 如果你在记事本中打开它们，它们应该仍在那里，假设它们最初被写入文件。