Access中Vba求助 80分

[serney]

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相送,谢谢!

[VBDN]

不能下载啊！

[serney]

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

[TB0500636]

工具是拿来用的，既然不会用，就可以认为是垃圾，会用，就不是，与人的能力相关

[ynsmcn]

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

[serney]

谢谢大虾们，尤其是茫茫帮助，此贴已结，谢谢。