Access中Vba求助 80分

Question

Excel做的电子试卷系统,功能主要是提供答题页面和成绩汇总功能.
现有一处错误: 就是当用汇总页面中的"生成成绩表"功能时,出错,谁来帮忙看一下啊. 
"Private Sub CommandButton2_Click()
    Sheets("汇总").Range("A2:D52").Select
    Selection.Copy
    AddNew
    Workbooks("95Sales").Sheets("sheet1").Activate
    Range("A1").PasteSpecial
End Sub"
源程序地址:
http://us.f1f.yahoofs.com/bc/66e5db6/bc/work/shijuan.xls?bfkIWCDB3GtRUSz4
小弟新人,分不多,80相送,谢谢!

Answer 1

http://serney.jahee.com/doc/shijuan1.xls
这个应该可以下载了, 大虾们帮帮忙啊!!

Answer 2

Private Sub CommandButton2_Click()
    AddNew
    Workbooks("shijuan1.xls").Sheets("汇总").Range("A2:D52").Copy
    Workbooks("95Sales.xls").Sheets("sheet1").Paste
End Sub