主题：[求助]

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<用户名 = 张三>"  '写入打印条件
Book.Build() '生成报表
Book.SaveAs("d:\张三.xls")

我的数据有很多个用户名，如何利用模板批量操作，以每个用户名生成报表，再以用户名为文件名单存一个XLS文件。