宏以文本格式打开分隔文本文件

Question

我必须将delimeted .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

每个文本文件中的列数不同，

请帮我解决这个问题。

感谢。

Answer 1

不回答，但建议。

Excel会自动执行此操作以预测应存储的数据类型，并删除不必要的详细信息，例如空格和前导零。解决方法是在导入文本后执行的操作。

1. 更改列的格式，使其显示前导零或
2. 格式化后将值更改为Sting

循环中的.Cells(R,C).Value = Format(.Cells(R,C).Value, "00000000")。