Access可以将表或报表内容导出到Text格式、PDF格式、或Excel格式，然后将这些文件分发给其它同事或客户（他们可以不用安装Access就可查看你的数据），导出时为了方便命名及将来搜索，一般我们会以当前日期再加个序号来命名，有时也会使用字母 。
以下函数，就是根据日期及字母来递增命名文件，如
c:\exported_data\A201612.txt
c:\exported_data\B201612.txt
c:\exported_data\C201612.txt
如果同名文件已经存在，则首字母会自动递增，大家也可改为数字序号或其它格式，也将将这个函数做得更加完善通用。
‘生成下一个文件名
Function NextFileName()
Dim fileprefix As String * 1
Dim tempNextFileName As String
Dim txtFilePath As String
Dim strYYYYMM As String * 6
strYYYYMM = Format(Now(), "yyyymm")
txtFilePath = "c:\exported_data\"
fileprefix = "A"
Do While True
tempNextFileName = txtFilePath & fileprefix & _
strYYYYMM & ".txt"
If Dir(tempNextFileName) = "" Then
Exit Do
End If
fileprefix = Chr(Asc(fileprefix) + 1)
Loop
NextFileName = tempNextFileName
End Function
