以下是引用有点甜在2018/12/21 15:55:00的发言：

改成这样

 

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

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

 

以下是引用有点甜在2018/12/21 16:08:00的发言：
你的excel模板发上来看看。

---

以下是引用有点甜在2018/12/21 16:29:00的发言：

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

 

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