主题：[求助]选择Reports文件夹里面的多个excle报表合并

上面代码报错：

找不到“D:\test.xls”。请检查文件名的拼写，并验证文件位置是否正确。

如果您正试图从最近使用的文件列表中打开该文件，请确保该文件未被重命名、移动或删除。

版主能帮忙调整好，上传吗？

总模板放在哪里？

sheet命名在哪里？

3个单独的报表的按钮，和上面代码怎么结合使用？

还是不行，以前有这个帖子可以参考吗？

上面代码是在狐表里用？还是在excle软件里用？

D:\test.xls

test.xls 是收到建的有3个sheet的模板吗？还是上面代码自动合并Attachments，或Reports 文件夹里面的3个只有一个sheet的xls后生成的工作簿？

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\test.xls")
Dim fl As String = ProjectPath & "Reports\test.xls"

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet1") '指定要复制的工作表
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet2")
    Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet3")
    Ws1.UsedRange.Copy
    ws3.activate
    ws3.Cells(1,1).Select
    ws3.paste
    Ws2.UsedRange.Copy
    ws3.activate
    ws3.Cells(1,Ws1.UsedRange.Columns.Count+2).Select '横向拷贝
    'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
    ws3.paste
    Wb.Save
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    App.Quit
End try

帮忙解释一下，上面代码怎么用了？