共享数据资源，VBA代码导入已有文本数据文件的方法

大家好，我们今日继续讲解VBA代码解决方案的第76讲内容：如何导入文本文件。我们在日常的工作中经常会需要从其他的文件中把一些文本拷贝到EXCEL中，往往会由于格式的问题要很长时间才可以完成，这里我讲解一下利用VBA导入文本文件的办法。可以明显提高自己的工作效率，当然下面的代码不是万能的，可以根据自己的实际情况来修改编写。

如果需要从文本文件中导入数据，可以使用OpenTextFile方法，应用于FileSystemObject对象的OpenTextFile方法打开一个指定的文件并返回一个TextStream对象，该对象可用于对文件进行读操作或追加操作，语法如下：

object.OpenTextFile(filename[, iomode[, create[, format]]])

a) object是必须的，FileSystemObject对象的名字。

b) filename是必须的，需要打开的文件名称。

c) iomode是可选的，表示输入/输出方式，设置值如下所示：

① ForReading1打开一个只读文件，不能对此文件进行写操作。

② ForAppending8打开一个文件并写到文件的尾部。

d) create是可选的，它表示如果指定的参数filename不存在是否可以创建一个新文件。如果创建新文件，其值为True。若不创建文件其值为False。缺省值为False。

e) format是可选的，打开文件的格式，设置值下所示。

① TristateUseDefault-2使用系统缺省打开文件

② TristateTrue-1以 Unicode 格式打开文件

③ TristateFalse0以 ASCII 格式打开文件

下面我们看一个实例的操作，如下面的代码所示。

Sub MyOpenText()

Dim MyFile As Object

Dim mArr() As String

Dim j As Integer, i As Integer

j = 1

Sheet1.UsedRange.ClearContents

Set MyFile = CreateObject("Scripting.FileSystemObject") _

.OpenTextFile(ThisWorkbook.Path & "\" & "人员表.txt")

Do While Not MyFile.AtEndOfStream

mArr = Split(MyFile.ReadLine, "，")

For i = 0 To UBound(mArr)

Sheets("Sheet8").Cells(j, i + 1) = mArr(i)

Next

j = j + 1

Loop

MyFile.Close

Set MyFile = Nothing

End Sub

代码解析：

OpenText过程使用OpenTextFile方法打开示例文件所在文件夹中的"人员表.txt"文件并将数据导入到工作表中。

第7、8行代码使用OpenTextFile方法打开文本文件。

第9行代码开始对文本文件进行读操作。应用于TextStream对象的AtEndOfStream属性指示文件指针是否位于TextStream文件中的结尾，如果是返回True，否则返回False。

第10行代码使用Split函数将逐行读取的字符串以逗号进行分隔后赋给数组mArr。应用于TextStream对象的ReadLine方法从一个TextStream文件读取一整行（到换行符但不包括换行符）并返回得到的字符串，语法如下：object.ReadLine。其中object是必须的，TextStream是对象的名字。

第11行到第14行代码将数组元素写入到工作表的单元格。

第15行代码重新读取下一行数据。

第16行使用Close方法关闭打开的文本文件。

运行OpenText过程将"人员表.txt"文件的数据导入到工作表中。

代码截图：

需要导入的文件：

运行后：

今日内容回向：

1 如何向一个EXCEL中导入文件？

2 object.OpenTextFile的意义是什么？