主题：输出固定格式报表

 使用以下命令、符合条件的有很多清单、但是输出却只有一条记录；公式错在哪里啦？

 

 

Dim dt1 As Date
dt1 = Date.Now
    
    
    For i As Integer = 0 To Tables("清单表").Rows.count - 1
        Tables("清单表").Position = i
        Dim r As Row = Tables("清单表").Rows(i)
        Dim Book As New XLS.Book(ProjectPath & "Attachments\清单表.xlsx") '打开模板

            Dim fl As String = "D:\拆分\清单表\" & r("网格") & "网格(清单).xls" '指定目标文件
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Book.Build() '生成报表
            Book.Save(fl)
             
    Next

MessageBox.show("完成【各站段低值易耗品台账表】输出工作!!!", "非常关键提醒")

 

 

此主题相关图片如下：3.png


此主题相关图片如下：1.png


此主题相关图片如下：2.png