主题：[讨论]如何利用CheckedComboBox控件打印多个报表?

Dim Vals() As String = Forms("窗口3").Controls("CheckedComboBox1").Value.Split(",")

For Val As Integer = 0 To Vals.Length - 1

    Dim Book As New XLS.Book("D:\Release商业版\CaseStudy\Attachments\1" & Val & ".xls") '打开模板

    Book.Build() '生成细节区

    Book.Save("D:\Release商业版\CaseStudy\Attachments\2" & Val & ".xls") '保存工作簿

    Dim Proc As New Process '打开工作簿

    Proc.File = "D:\Release商业版\CaseStudy\Attachments\2" & Val & ".xls"

    Proc.Start()

Next

但是用这个代码还是出错!