主题：[求助]Excel报表容量问题

用Excel 2007看看

For i as integer = 0 to tables("xxx").Rows.Count -1 Step 1370
     Tables("xxx").Select(i, 0, i + 1369, cols.count -1)
      Dim Book As New XLS.Book(ProjectPath & "Attachments\核实表.xls") '打开模板
      Book.Build() '生成细节区
      Book.Save("d:\My Documents\Reports\核实表.xls") '保存工作簿
      Dim Proc As New Process '打开工作簿
      Proc.File ="d:\My Documents\Reports\核实表.xls"
      Proc.Verb = "Print" '指定动作
      Proc.Start()
Next

呵呵，你根据错误提示，应该能够找出这句代码的问题的。

这次我不说，你自己找。

 

 

Tables("xxx").Select(i, 0, i + 1369, tables("xxx").cols.count -1)

 

 

For i As Integer = 0 To Tables("申请表").Rows.Count -1 Step 1370     With Tables("申请表")         .Select(i, 0, math.min(i + 1369,.rows.count -1), .cols.count -1)     End With     Dim Book As New XLS.Book(ProjectPath & "Attachments\核实表.xls") '打开模板     Book.Build() '生成细节区     Book.Save("d:\My Documents\Reports\核实表.xls") '保存工作簿     Dim Proc As New Process '打开工作簿     Proc.File ="d:\My Documents\Reports\核实表.xls"     Proc.Verb = "Print" '指定动作     Proc.Start() Next

因为楼主说一次超过1370行就出错啊，所以一次打印1370行

 

加上一行，这样关闭本次生成的报表，才会生成下一个，不会带来冲突：

 

If Forms("选项").Controls("ComboBox1").Value >"" AndAlso Forms("选项").Controls("ComboBox2").Value >"" Then
    For i As Integer = 0 To Tables("申请表").Rows.Count -1 Step 1370
        With Tables("申请表")
            .Select(i, 0, math.min(i + 1369,.rows.count -1), .cols.count -1)
        End With
        Dim Book As New XLS.Book(ProjectPath & "Attachments\登记表.xls") '打开模板
        Book.Build() '生成细节区
        Book.Save("d:\My Documents\Reports\登记表.xls") '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File ="d:\My Documents\Reports\登记表.xls"

        proc.WaitForClose = True
        Proc.Start()
    Next
END IF

改名还不容易啊：

 

If Forms("选项").Controls("ComboBox1").Value >"" AndAlso Forms("选项").Controls("ComboBox2").Value >"" Then
    For i As Integer = 0 To Tables("申请表").Rows.Count -1 Step 1370
        With Tables("申请表")
            .Select(i, 0, math.min(i + 1369,.rows.count -1), .cols.count -1)
        End With
        Dim Book As New XLS.Book(ProjectPath & "Attachments\登记表.xls") '打开模板
        Book.Build() '生成细节区

        Dim fl As String ="d:\My Documents\Reports\登记表" & i & ".xls"
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl

        Proc.Start()
    Next
END IF