Dim Book As New XLS.Book(ProjectPath & "Attachments\缴费通知条.xls") Dim fl As String = ProjectPath & "Reports\缴费通知条.xls" Dim sheet = book.Sheets(0) Dim ids As String = "-1," For Each r As Row In Tables("任务表.学生表").GetCheckedRows ids &= r("_Identify") & "," Next sheet(1,6).value = "<_Identify in (" & ids.trim(",") & ")>" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Verb = "Print" '指定动作 Proc.Start()
|