以文本格式打开分隔文本文件的宏答案

【问题标题】：Macro to open a delimeted text file in Text format以文本格式打开分隔文本文件的宏
【发布时间】：2013-08-13 06:59:26
【问题描述】：

我必须将分隔的 .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

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

请帮助我实现这一目标。

谢谢。

【问题讨论】：

office.microsoft.com/en-us/excel-help/… ...您是在读取 csv 还是在编写时尝试保存问题？
@Mr.Monshaw - 问题是在将 sql 输出写入 csv 时，它没有保留前面的零。我需要知道是否有一个选项可以将输出写入文本格式。

标签： excel vba

【解决方案1】：

不是回答而是建议。

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

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

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

【讨论】：