主题：[求助]根据当前日期按年、月存报表

如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\****报表.xls")

Dim fl As String = ProjectPath & "Reports\****报表\****年\**月\'" & Date.Today & "'.xls"

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

****年为当前年，**月为当前月，要求为动态的，代码如何写？请大侠帮忙。