dim nms As List(of String) = DataTables("xxx").GetUniqueValues("","客户") For Each nm As String in nms Dim Book As New XLS.Book(ProjectPath & "Attachments\报表模版.xls") Dim fl As String = ProjectPath & "Reports\“ & nm & ”.xls" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿 Next