在VBA中，我们可以使用FreeFile函数来取得文件的序号。
一、FreeFile理论介绍
该函数的功能是：文件序号的取得。
Open方法中，如果打开一个被使用的文件，会出错误，使用FreeFile，可以避免这样的错误发生。
语法如下：
FreeFile(num)
参数介绍：
num，0或者1指定可能
Open方法时使用，取得使用可能的文件序号。
参数num=0，返回1~255范围内文件序号。
参数num=1，返回256~511范围内文件序号。
二、FreeFile在VBA中的使用
Dim n As Integer, m As Integer, buf As String
n = FreeFile '返回1
Open c:\autoexec.bat For Input As n
Line Input #n, buf
m = FreeFile '返回2
Open E:\dzwebs.txt For Output As m
Print #m, buf
Close m
Close n
想使用如上的FreeFile函数，你得有VBA基础知识，如果看不明白什么的，请到本站参阅相关的文章。