No.1

vba编程中也有对非Excel文件进行操作的一些功能，特别是对文本文件的操作。

其中的函数和语句比较多，全面掌握也相对较难。

本着简单的操作方法，这里介绍一些文件的打开、读取、和写入操作方法。

本节介绍EOF函数，这是一个文件检测函数，其内容代码不得而知，知道它的功能拿来使用便可以。

功能十分简单，官方解释是"当到达一个已经打开的用于进行随机或顺序 Input 的文件的末尾时，将返回一个包含 Boolean 值 True 的 Integer。"

简单理解就是对一个打开的文件进行判断是否达到了文件尾部，如果已经达到尾部就返回一个真值TRUE。

判断的过程是，当对这个文件进行Input读取的过程中。

Input是一个语句，是对文件进行读取的语句，也就是读取这个文件内容的一个内置语句。

下图为EOF函数具体语法介绍：

No.2

使用本函数之前，要用到文件操作的另外一些语句。

如Open打开文件，Input # 读取文件等语句，本例中还应用了Output # 写入语句。

这些语句在本节不做详细介绍。

下图为EOF函数举例介绍：

在此例中，将写入四行数据，分别用Write # 语句实现。

第一行为字符"this is a book."

代码：Write #1,"this is a book."

第二行为空行

代码：Write #1,

第三行写入数据123

代码：Write #1,123

写操作之前要用语句：

Open "文件名" For OutPut As #1

打开文件。

具体代码可参考下图：

No.3

写文件操作只是初始化设置的一个过程，其实可以新建一个文件文件来进行预设。

EOF()函数重点应用在于读取文件操作(Input)过程。

读取文件用如下代码：

Open "\1.txt" For Input As #1

表示以读取方式打开文本文件"1.txt"，#1表示文件号，这个号是系统分配的。

判断读取文件是否已经到了文件结尾，如下代码：

Do While Not EOF(1)'如果不是文件结尾就执行下面语句
    Input #1, inputFile, myNumber '读取文件数据写入变量inputFile
    MsgBox inputFile, myNumber '输出变量内容
Loop

Not EOF(1)表示不是文件结尾，同样数字1表示文件号。

Do While...Loop循环是个判断语句，意思是当While后面的条件为真时执行loop之前的代码。

如果条件为假就跳出Do While循环。

这里的意思就是说当不是文件结尾的时候就执行循环语句，如果到达文件结尾就跳出循环。

No.4

本以为EOF()是个十分简单的函数，但是在介绍之后才发现，涉及到的内容比较多。

如果单单介绍EOF()是很难理解其工作原理的，所以，这里多说了一些其它文件操作的相关语句。

如果对其它编程语言有一些了解的朋友，对于EOF()函数并不陌生，因为大多数编程语言都有这个函数功能。

如果深入来理解，还要对数据结构和文件结构有一定的了解，当然文件格式不同，其相关方面的内容也不相同。

本节，只要理解了对文件进行读取操作的时候，有一个函数可以判断是否已经读取到了文件的结尾处，就可以了。

欢迎关注、收藏。