主题：【求助】帮我看看这段代码为啥不能运行呢

帮我看看这段代码为啥运行不了呢，移动代码是说明书中的，我修改了就不能用了，特意直接复制说明书不修改也不能用，不知道是不是说明书这段代码就有问题呢。

代码的意思是    用(ProjectPath & "Attachments\汇总成绩报表模板.xls")生成报表，保存至ProjectPath & "Reports\导出分组成绩.xls"。然后将该导出工作表移动到我设置好有vba代码程序的工作薄(ProjectPath & "Attachments\汇总成绩报表模板【程序】.xls")中新建的工作表中，为不破坏该带vba的工作薄另存到(ProjectPath & "Reports\导出分组成绩【程序】.xls")并且打开。这是代码会自动运行，这样就不好破坏模板和我设置好vba的工作薄。

MainTable = Tables("学生成绩表")

Dim Book As New XLS.Book(ProjectPath & "Attachments\汇总成绩报表模板.xls")

Dim fl As String = ProjectPath & "Reports\导出分组成绩.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Book1 As New XLS.Book(ProjectPath & "Reports\导出分组成绩.xls")

Dim Book2 As New XLS.Book(ProjectPath & "Attachments\汇总成绩报表模板【程序】.xls")

Dim Sheet = Book1.Sheets("Sheet1")

Book1.Sheets.Remove(Sheet)

Book2.Sheets.Add(Sheet)

Book2.Save(ProjectPath & "Reports\导出分组成绩【程序】.xls")

Dim App As New MSExcel.Application

App.Visible = True

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Reports\导出分组成绩【程序】.xls")