在启用I / O的情况下添加到.CSV时，保持前导零不变

标题是混乱的，我的道歉。 不知道最好的方式来说，所以如果你有更好的build议，请。

我有这个脚本，但是在保持前导零的时候遇到了麻烦。 我试图插入.NumberFormat =“@”，但是我只能在创build文件后才能这样做。 我也尝试在将文本放到文件中时在前导零处添加“'”，并添加它，但不适用它。 它只是把“”“保持在零之前。

build议？ 先谢谢你！

原始编号：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

你如何testingCSV文件？ 如果你在Excel中重新打开它，它将删除前面的零 – 如果你在记事本中打开它，它们应该仍然在那里，假设它们原本是写入文件的。