使用宏实现自动批改office操作题.doc

使用宏实现自动批改office操作题双击excel文件图标 单击中间的启用宏按钮如果出现下面的提示，单击中“是”启用宏之后出现如下内容：按要求完成后，单击评分按钮，会完成评分，如图;注意：如不能自动评分，请把excel另存为的方式保存成一个独立的文件后再执行。参考如下内容，可以自己制作其它自动批改的练习文件。Dim XINMING, banji As StringDim FEN As IntegerSub 宏1()FEN = 0XINMING = InputBox(请输入姓名)banji = InputBox(请输入班级，如：92) Dim fileso As New Scripting.FileSystemObjectDim ts As TextStream设置记录内容的路径Set ts = fileso.Open