1

标题乱七八糟，见谅。不确定最好的表达方式，所以如果你有更好的建议，请。

我的脚本有效，但我无法保持前导零。我试图插入 .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
4

1 回答 1

1

您如何测试 CSV 文件？如果您在 Excel 中重新打开它，它将在此时删除前导零 - 如果您在记事本中打开它，它们应该仍然存在，假设它们最初被写入文件。

于 2013-06-03T14:52:42.343 回答