VBA 读取/写入文本文件

VBA 读取/写入文本文件  
1、Open 语句 
打开方式有 
Input：以读取方式打开。
Output：以写入方式打开。
Append：以追加方式，即添加内容到文件末尾打开。
Binary：以二进制方式打开。
Random：以随机方式打开，如果未指定方式，则以 Random 方式打开文件。
 Open pathname For mode As [#]filenumber
 Open "c:\a.txt" For Output As #1
filenumber  是一个有效的文件号，范围在 1 到 511 之间。
如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。 
2、Close 语句 
语法：Close [filenumberlist]
     filenumberlist 参数为一个或多个文件号，若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。 
说明：打开文件后，必须在使用完后关闭文件。
 
3、EOF 函数 
语法：EOF(filenumber) 
功能：返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
Open "c:\a.txt"  For Input As #1 ‘以读入方式打开c:\a.txt
Do While Not EOF(1)  '未到达结尾