主题：想生成的表超80行后就另存表，重新引用

 Dim cm = e.form.Controls("ComboBox1").text    
            Dim App As New MSExcel.Application
            Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\全电fa piao.xlsx")
            App.Visible = True
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("明细模板")
            Dim r As Integer
            Dim m As Integer = 1
            Dim u As Table = Tables("销售开piao明细")
            For i As Integer = 0 To u.Rows.count - 1
          If CInt(i / 150) <> i / 150 Then
                    Dim u1 As Row = u.Rows(i)
                    Ws.Range("A" & i + 4).Value = u1("开piao品名")''''''货物名称
                              
                    Ws.Range("H" & i + 4).Value = u1("税率")''''''税率
         Else
               Wb.Save()
              Wb.SaveAs("D:\" & cm & "123.xls")

          End If
            Next
            Wb.Save()

现在可以把数据生成后，全部引用到一个表，但是现在想：生成的表超80行后就另存表，重新引用

Dim cm = e.form.Controls("ComboBox1").text    
            Dim App As New MSExcel.Application
            Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\全电fa piao.xlsx")
            App.Visible = True
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("明细模板")
            Dim r As Integer
            Dim m As Integer = 1
            Dim u As Table = Tables("销售开piao明细")
            For i As Integer = 0 To u.Rows.count - 1      
                    Dim u1 As Row = u.Rows(i)
                    Ws.Range("A" & i + 4).Value = u1("开piao品名")''''''货物名称                              
                    Ws.Range("H" & i + 4).Value = u1("税率")''''''税率         
           Next
            Wb.Save()

现在可以把数据生成后，全部引用到一个表，但是现在想：生成的表超80行后就另存表，重新引用

“销售开piao明细”是使用分组进行生成了，现在是引用“销售开piao明细”的数据到“明细模板”，每80行生成一个明细模板另存

这些都有考虑过，需要另存一份才行

老师真牛，我想了半天都想不到使用STEP