主题：[求助]按钮代码：一次生成多个报表

此主题相关图片如下：报表.gif

如上图每次只能选择一个报表。想设一按钮一次性生成多个报表，"分组统计"是一个零时表，以下面三个报表的代码为例，只有红色部分不同，其它都相同。

With Tables("分组统计")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\结果分析表.xls") '打开模板
Book.Build() '生成细节区
Book.Save("e:\报表\结果分析表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "e:\报表\结果分析表.xls"
Proc.Start()

With Tables("分组统计")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\林种统计表.xls") '打开模板
Book.Build() '生成细节区
Book.Save("e:\报表\林种统计表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "e:\报表\林种统计表.xls"
Proc.Start()

With Tables("分组统计")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\面积统计表.xls") '打开模板
Book.Build() '生成细节区
Book.Save("e:\报表\面积统计表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "e:\报表\面积统计表.xls"
Proc.Start()