主题：Excel模板设计，根据勾选不同列打印

Dim cs() As String = {"左扶","单背","床","扶手箱","右扶"}

Dim count As Integer

For i As Integer = 0 To cs.Length-1

    If Tables("生产订单").current(cs(i)) Then

        count+=1

    End If

Next

For i As Integer = 0 To cs.Length-1

    Dim r As Row = Tables("生产订单").current

    If r(cs(i)) Then

        Dim Book As New XLS.Book(ProjectPath & "Attachments\包装说明.xls")

        Dim fl As String = ProjectPath & "Reports\" & r("订单编号") & "-" & cs(i) & ".xls"

        Dim Sheet As XLS.Sheet = Book.Sheets(1)

        Sheet(7,5).Value=cs(i)

        Sheet(8,5).Value= count & "件(" & count & "-" & (i+1) & ")"

        

        Book.Build() '生成细节区

        Book.Save(fl) '保存工作簿

        Dim Proc As New Process '打开工作簿

        Proc.File = fl

        Proc.Start()

    End If

Next

代码如上