主题：报表命名和存储路径表达式问题

数据表含有若干个客户的2012年12月和2013年1月的数据若干条，含有日期的年份和月份取值列：表达式为：SubString(Convert([日期],'System.String'),1,4) 和 SubString(Convert([日期],'System.String'),6,IIF(SubString(Convert([日期],'System.String'),7,1) = '-',1,2))

1、EXCEL报表生成表格时，希望出具报表时文件名称为：“最近的年份值”+“最近的月份值”+“客户”+“-结算单”.xls,例如："201301李三-结算单.xls"

 

本人对代码一窍不通，一时半会还是不能处理，还请直接告知如何修改？

 

原来的代码如下：

Dim nms As List(of String) = DataTables("结算表").GetUniqueValues("","客户")

For Each nm As String In nms
    Dim Book As New XLS.Book(ProjectPath & "Attachments\结算单-2013模板.xls")
    Dim fl As String = ProjectPath & "Reports\" & nm & ".xls"
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(8, 9).Value = "<客户 = '" & nm & "'>"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
Next

 

2、当保存路径由Dim fl As String = ProjectPath & "Reports\" & nm & ".xls"

                改成Dim fl As String = ProjectPath & "D:\报表\" & nm & ".xls"出现报错，请问题如何修改

 

 

 

 

此主题相关图片如下：1.jpg

 改成这样

 Dim fl As String = "D:\报表\" & nm & ".xls"

第二个问题解决了，谢谢啦。

 

崇拜的狐神，可否帮帮我处理第一个问题呢？

 

代码

im nms As List(of String) = DataTables("结算表").GetUniqueValues("","客户")

For Each nm As String In nms
    Dim Book As New XLS.Book(ProjectPath & "Attachments\结算单-2013模板.xls")
    Dim d As Date = DataTables("结算表").Compute("Max(日期)", "客户 = '" & nm & "'")
   
    Dim fl As String = ProjectPath & "Reports\" & d.Year & d.Month & nm & "-结算单.xls"
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(8, 9).Value = "<客户 = '" & nm & "'>"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
Next

谢谢狐神了，问题完全的解决了。感谢！