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

此主题相关图片如下：报表.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()

随便写的，没有测试，请自行调试：

Dim Names() AS String = {"结果分析表","林种统计表","面积统计表"}
For Each Name As String In Names
    With Tables("分组统计")
        .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
    End with
    Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save("e:\报表-:special:1:- & Name & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = "e:\报表-:special:1:- & Name & ".xls"
    Proc.Start()
Next

此主题相关图片如下：调试.jpg

论坛问题，导致乱码，你按照我得思路修改一下，例如:


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

成功了，谢谢！

怎么会变，多出\"

学习了,呵呵

在2楼文件中有这么一句:
Dim Book As New XLS.Book(ProjectPath & "Attachments\林种统计表.xls") '打开模板
若文件放入优盘中,在不同电脑上其盘符不同，怎样修改让电脑自动识别优盘位置？

这里使用的是相对路径，在U盘也一样