主题：自动存储不同的文件名

Dim Book As New XLS.Book(ProjectPath & "Attachments\死亡.xls")
Dim fl As String = ProjectPath & "2013.4.xls"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

请问怎么把2013.4.xls的文件名随时间的变化而变化。也就是每次报表都有不同的文件名。比如2013.5.xls、2013.6.xls、2013.7.xls等