主题：批量生成excel报表的问题

改成这样

Dim t As Table = Tables("决算编制")
Dim top = t.TopRow
Dim bot = t.BottomRow
For i As Integer = top To bot
    t.Position = i
    Dim Book As New XLS.Book(ProjectPath & "Attachments\工程决算书.xls")
    Dim fl As String = ProjectPath & "Reports\工程决算书(" & t.Rows(i)("项目名称") & ").xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
   
    Dim Proc As New Process '打开xls
    Proc.File = fl
    Proc.Start()
Next

甜大，测试了还是不行，比如我选定两行数据，会生成两个报表文件，第一个文件里还是两行的数据，第二个文件是最后一行单独数据的文件，不知是哪里出了问题。

你引用的是【通信管道决算编制】表的数据，那么你代码，也要改成这个表

Dim t As Table = Tables("通信管道决算编制")
Dim top = t.TopRow
Dim bot = t.BottomRow
For i As Integer = top To bot
    t.Position = i
    Dim Book As New XLS.Book(ProjectPath & "Attachments\工程决算书.xls")
    Dim fl As String = ProjectPath & "Reports\工程决算书(" & t.Rows(i)("项目名称") & ").xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
   
    Dim Proc As New Process '打开xls
    Proc.File = fl
    Proc.Start()
Next

如果还有问题，做一个例子发上来测试

表的名字是发帖编辑的时候漏了几个字，实际上是对应的，表名字没问题的，我刚按照甜大改的代码的思路思考了一下，改成了如下代码，已经运行正常了，谢谢甜大指点。

Dim t As Table = Tables("通信管道决算编制")
Dim top = t.TopRow
Dim bot = t.BottomRow
For i As Integer = top To bot
    t.Select(i,t.LeftCol,i,t.RightCol)
    Dim Book As New XLS.Book(ProjectPath & "Attachments\工程决算书.xls")
    Dim fl As String = ProjectPath & "Reports\工程决算书(" & t.Rows(i)("项目名称") & ").xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
    
    Dim Proc As New Process '打开xls
    Proc.File = fl
    Proc.Start()
Next