主题：请问下excel另存为副本时，修改文件名称该怎么写呢？

Dim Book As New XLS.Book(ProjectPath & "Attachments\工资单.xls")
Dim fl As String = ProjectPath & "Reports\工资单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

dim Copyfl as string = "D:\工资表\format(e.DataRow("工资月份"),"yyyy")\format(e.DataRow("工资月份"),"MM") " & e.DataRow("姓名") & format(e.DataRow("工资月份"),"yyyyMM") & ".xls"
Book.Save(Copyfl ) '保存工作簿副本

另存为副本这样写可以吗？存到d盘工资表下，并按年、月生成文件夹，然后生成名称+年月为名称的.xls文件！

dim Copyfl as string = "D:\工资表\format(e.DataRow("工资月份"),"yyyy")\format(e.DataRow("工资月份"),"MM") " & e.DataRow("姓名") & format(e.DataRow("工资月份"),"yyyyMM") & ".xls"

求版主帮忙！

Dim r As Row = Tables("表A").Current
Dim Copyfl As String = "D:\工资表\" & format(r("工资月份"),"yyyy") & "\" & format(r("工资月份"),"MM") & r("姓名") & format(r("工资月份"),"yyyyMM") & ".xls"