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