excel - 宏以文本格式打开带分隔符的文本文件

Question

我必须将分隔的 .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")循环的东西。