关注上方“数据小郑”，选择星标，数据分析职场之路我们一起走！

文章导读：

本文主要讲解如何将一个或者多个TXT文件通过VBA编码一键导入excel中并分列，完成数据数据整合。

VBA程序共有3段代码，文章按照逻辑顺序依次讲解。

1.自定义函数判断TXT文件编码

ByVal：按值传递，把一个值传递到一个地址里面。在定义通用过程时，如果形参前面有关键字ByVal,则该参数用传值方式传递，否则就是用引用(地址)方式传递。

Freefile:文件序号的获取。open方法中，如果打开一个被使用的文件，会出现错误，使用Freefile可以避免这样错误发生。语法为：FreeFile(num),numk可以是0或者1。参数为0时，返回1~255范围内的文件序号。参数为1时返回256~511范围内的文件序号。

open语句：以二进制只读的方式打开文件，并将文本文件的内容读到变量inFile中。

Get:将一个已经打开的磁盘文件读入一个变量之中，语法：

获取[ # ]filenumber、[ recnumber ]、 varname