Dim CPMS As List(OF String) = DataTables("统计表").GetValues("产品","[产品] is not null")
Dim F1 As String = ProjectPath & "Reports\订单.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
Dim sheet As XLS.Sheet = Book.Sheets(0)
For Each CPM As String In CPMS
Dim sh2 As XLS.Sheet = Book.Sheets.Add(CPM )
For r As Integer = 0 To sheet.Rows.Count - 1 '填入数据
For c As Integer = 0 To sheet.Cols.Count -1
sh2(r, c).Value = sheet(r, c).Value
Next
Next
sh2(3,9).Value =" < [产品] = '" & cpm & "' > " '修改模板,加入筛选条件
Next
Book.Sheets.RemoveAt(0)
Book.Build() '生成细节区
Book.Save(F1) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = F1
Proc.Start()
加好友 
发短信
Post By：2018/7/23 20:22:00 [只看该作者]
