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

 

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, i + 1369, .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

For i As Integer = 0 To Tables("申请表").Rows.Count -1 Step 1370
    Tables("申请表").Select(i, 0, i + 1369, Tables("申请表").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.Start()
Next

此主题相关图片如下：2010-12-16 16-05-46.png

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

1、实在不懂：For i As Integer = 0 To Tables("申请表").Rows.Count -1 Step 1370 中的Step 1370，要那么长的步长吗？

两位解释一下。

 

2、为何要用select？循环时应定位于循环到的行吧（因楼主要每行打印一次）：

Tables("申请表").position = i   

 

 

因为楼主说一次超过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.Start()
    Next
END IF

此主题相关图片如下：2010-12-17 9-22-21.png

下面窗口弹出说明已经超过1370行（不超过不弹出），后面还有记录被选中没有生成报表

此主题相关图片如下：2010-12-17 9-17-43.png

此主题相关图片如下：2010-12-17 8-24-54.png

接着执行

此主题相关图片如下：2010-12-17 9-18-45.png

If Forms("选项").Controls("ComboBox1").Value >"" AndAlso Forms("选项").Controls("ComboBox2").Value >"" Then
    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.Start()
END IF

 全部记录生成报表形成两个文件登记.xls  登记表.xls

上面的过程需要人工判断能不能来个全自动的

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

 

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