使用VBA使用opentxt方法将.txt文件转换为.xls文件

Question

我需要帮助将.txt转换为.excel文件。

例如，下面的文件包含7行，我想将.txt转换为excel，从第4行转换为第5行

Sample.txt的

1...........
 2Sample Text
 3.....
 4xxx|abcd|12-12-2014|1234.56
 5yyy|bcdefg|12-12-2014|3234.56
 6Total number
 7this is last line

我编写代码，读取每一行并使用Split函数，但这需要很多时间，因为我的.txt文件包含数千行。

Answer 1

将其打开为普通文件（workbooks.open blah blah），然后使用：

Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, OtherChar:="|", FieldInfo:=Array(1, 1)
    Rows("1:3").Delete

第一个命令使用Pipe“|”拆分列作为分隔符然后第二行删除行1：3，因为你说你不想要那些行。