Excel 宏以文本格式打开已删除数据的文本文件

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

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

请帮我实现这个目标

---

谢谢。

不是回答而是建议

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

更改列的格式，使其显示前导零，或

在格式化后将值更改为Sting

---

类似于循环中的

.Cells（R，C）.Value=Format（.Cells（R，C）.Value，“00000000”）

。

。。。您在读取csv或在编写csv时尝试保留csv时有问题吗？@Mr.Monshaw-问题是在将sql输出写入csv时，它没有保留前面的零。我需要知道是否有一个选项来写输出是文本格式。