0

区切られた .txt テキスト ファイルを Excel ファイルに変換する必要があります。以下のコードを使用して、ファイルを変換できます

ただし、すべての数値はゼロを破棄して保存されます。(「00001112」は「1112」として保存されます)。

テキスト ファイルを Excel テキスト形式で開くことができるようにするオプションはありますか。

私のコード:

TxtFile = txtFldrPath & "\" & Left(CurrentFile, Len(CurrentFile) - 4)
      Workbooks.OpenText Filename:=TxtFile, _
      origin:=xlWindows, startrow:=1, DataType:=xlDelimited, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
      Comma:=True

各テキスト ファイルの列数は異なりますが、

これを達成するために私を助けてください。

ありがとう。

4

1 に答える 1

0

回答ではなく提案です。

Excel は、保存するデータ型を自動的に予測し、スペースや先頭のゼロなどの不要な詳細を削除します。回避策は、テキストをインポートした後に行うことです。

  1. 列の書式を変更して先行ゼロを表示するか、または
  2. フォーマット後に値を Sting に変更します

.Cells(R,C).Value = Format(.Cells(R,C).Value, "00000000")ループのようなもの。

于 2013-08-14T03:55:09.683 に答える