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 に答える