成绩发送Excel控件调用

1、成绩发送 Excel 控件调用 随着科学技术的迅猛发展，计算机及网络技术的广泛应用，信息技术在学校教育教学中成为非常重要的辅助手段，成为教师提高教育教学效率的有效途径，使教育教学方式越来越多样化，使教师变成充满活力和创意的引导者，能够为学生提供更好的学习平台，提高教师工作效率。在实际教育教学中只要能够合理使用信息技术，从学生实际发展需要出发，就一定能取得事半功倍的效果。 计算机辅助教学是教育教学改革的需要，同时是适应现代化教学的需要。但是如何合理有效地将信息技术运用到教育教学中呢？下面我结合多年班主任工作经验就如何在班主任工作中合理有效地运用信息技术做初步探索。由于多年担任班主任，因此一直寻找

2、如何让每位学生和家长及时了解学习进步情况的方法，以便学生及时采取更有针对性的措施，纠正不良的学习习惯，提高学习效率，同时让家长及时对子女的学习生活进行科学合理的引导，与学校共同为学生的成长、学习构建一个更加科学、高效的学习平台，促进学生全面健康成长。 刚开始担任班主任时对Excel软件的应用比较多，因为Excel软件统计、分析学生成绩的功能很强，如把个人成绩放到整个年段中进行纵向比较，把历次成绩保存起来对个人成绩进行横向较，并分析个人成绩的进退情况，利用INDIRECT函数对各种数据进行调用，并利用数组函数进行多条件、分类查询等。但是对于学生成绩发送、学生成绩查询、家长成绩查询、教师成绩查询等

3、更复杂的功能，单独利用Excel函数无法实现。如何才能把每一位同学的成绩单独发送到同学们的手中，让每位同学及时了解自己近阶段的学习成果、及时进行学习反馈，同时保护好每位同学的隐私呢？ 一 通过网上资料查询及个人理论学习，发现可以以Excel软件为载体，利用Excel VBA编程实现学生个人成绩发送功能。首先利用Excel的调用函数INDIRECT根据班级、第页人数、发送的页码、考试名称自动生成带有各自邮箱的发送页；然后用Excel VBA编程语言编写发送邮件的代码，主要通过VBA调用CDO.Message+SMTP实现邮件的发送，其中利用循环函数对发件人的邮箱进行轮换，以克服现在邮件系统对发送

4、邮件数量的限制，而且只要使用免费邮箱就能够胜任。其次要对发送邮件的时间间隔进行调整，防止被误认为是垃圾邮件。通过Excel函数与Excel VBA编程相结合，把每位学生的个人成绩及时发给学生本人及其家长，从而大大减少班主任的工作量，有效提高班主任的工作效率。通过对软件的仔细调整，邮件发送的成功率基本能达到100%，发送效果比网上收费邮件的发送软件还要好。 二 在该软件的使用过程中，发现这种方式还有一点不足，就是个别学生不方便上网或没有上网条件，所以就没办法及时查询自己的成绩，那么如何让这部分学生在没有网络的条件下也能及时获知自己的成绩呢？同样通过网上信息资料查询与学习，发现现在在各领域广泛应用

5、的二维码技术，二维码（2D barcode or QR code=Quick reference code）大家再熟悉不过了，用手机拍下二维码就可以方便地获取网址、手机号码及个人联系方式等有用资讯；二维码中有各种存储数据的格式，如可以生成包含网址的二维码；可以生成包含电话号码名片的二维码；可以生成包含电话号码和内容的短信二维码，等等。通过对短信二维码格式的分析，了解其发送的语法格式为：smsto你好，短信请查收。由于学生成绩资料都在Excel文档中，所以就想能否直接在Excel文档中生成对应学生、家长的电话号码及成绩？同样通过网上查询与学习发现可以在Excel的基础上

6、安装生成二编码控件QRmaker.ocx，在Excel控件中就会出现QRmaker Control的二维码控件，在Excel中创建一个宏：Sub erweima（） Dim QRString1 As String QRString1 = Sheets（"二维码发送"）.Range（"A10"） Sheets（"二维码发送"）.Select Sheets（"二维码发送"）.QRmaker1.AutoRedraw = ArOn Sheets（"二维码发送"）.QRmaker1.InputData = QRString1 End Sub 通过该宏把工作表“二维码发送”中单元格A10的内容生成二维码。然后利用INDIRECT函数就可以把任意一个学生的成绩、电话号码根据短信二维码格式编写放入单元格A10中生成对应二维码，最后通过智能手机二维码扫描就可迅速、及时地把成绩发送给学生或家长。 利用以上两项成绩发送方式，基本能够满足班主任的日常工作需要，再结合Excel的基本统计功能，集班主任对学生成绩的管理、分析、发送于一身，可有效减轻班主任的工