说明：如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。
示例：
Open "F:\TEST.txt" For Input As #1 '以输入方式打开
Open "F:\TEST.xls" For Binary As #1 '以二进制方式打开
2、Close 语句
语法：Close [filenumberlist]
filenumberlist 参数为一个或多个文件号，若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。
说明：打开文件后，必须在使用完后关闭文件。
示例：
Dim I, FileName
For I = 1 To 3
FileName = "TEST" & I ' 创建文件名。
Open FileName For Output As #I ' 打开文件。
Print #I, "This is a test." ' 将字符串写入文件。
Next I
Close ' 将三个已打开的文件全部关闭。
3、Reset 语句
语法：Reset
功能：关闭所有用 Open 语句打开的磁盘文件。
说明：Reset 语句关闭 Open 语句打开的所有活动文件，并将文件缓冲区的所有内容写入磁盘。
示例：
Dim FileNumber
For FileNumber = 1 To 5
Open "TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hello World" ' 将数据写入文件。
Next FileNumber
Reset ' 关闭文件并将缓冲区内的数据写到磁盘中。
Dim MyString, MyNumber
Open "TESTFILE" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, MyString, MyNumber ' 将数据读入两个变量。
Debug.Print MyString, MyNumber ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
9、Write # 语句
示例：
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
示例：
Dim MyChar
Open "f:\test.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
MyChar = Input(1, #1) ' 读入一个字符。
Debug.Print MyChar ' 显示到立即窗口。
Loop
Close #1
示例：
Dim I
Open "f:\TESTFILE.txt" For Output As #1
Width #1, 5 ' 设置输出行宽为 5。
For I = 0 To 9 ' 循环 10 次。
Print #1, Chr(48 + I); ' 每行输出五个字符。
Next I
Close #1
