利用VBA实现网页中自动录入成绩.pdf

利用VBA实现网页中自动录入成绩.pdf

ID:57019415

大小:167.12 KB

页数:4页

时间:2020-07-31

利用VBA实现网页中自动录入成绩.pdf_第1页
利用VBA实现网页中自动录入成绩.pdf_第2页
利用VBA实现网页中自动录入成绩.pdf_第3页
利用VBA实现网页中自动录入成绩.pdf_第4页
资源描述:

《利用VBA实现网页中自动录入成绩.pdf》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、*2010年8月安庆师范学院学报(自然科学版)Aug.2010第16卷第3期JournalofAnqingTeachersColege(NaturalScienceEdition)Vol.16No.3利用VBA实现网页中自动录入成绩1,2江治(1.华东师范大学信息科学技术学院,上海200241;2.温州大学物理与电子信息工程学院,浙江温州325035)摘要:VBA是Office系列软件内嵌的通用编程语言,用于定制和扩展Office的功能。本文利用Excel中的VBA进行二次开发编程,实现了将保存在Excel文件中

2、的成绩自动录入到信息管理系统登记成绩的页面的功能,并给出了详细的实现过程。该程序操作简便,自动录入迅速,解决了教师手工输入速度慢且容易出错的问题,具有一定的实用价值。关键词:VBA;OLE;自动录入中图分类号:TP311文献标识码:A文章编号:1007-4260(2010)03-0124-040引言21世纪是个高度信息化的社会,信息化已经渗透到高校教学、科研、管理的各个方面。各高校在不同程度上都采用了现代化的信息管理技术,各项资料除必需的纸质材料外,均采用电子化管理。网上选课、成绩查询等系统,在各高校

3、已普及,这些系统在提高了办事效率,方便学生选课、查询成绩的同时,也给任课教师带来一些不便。如对于查询成绩系统,教师必须通过录入页面,将学生各门课成绩从已打好的电子版成绩中手工逐个输入到信息管理系统。对于学生人数较多的教师,这是一项非常繁琐而容易出错的重复工作。目前大多数电子版成绩都是使用Excel来保存,本文就以ExcelVBA为例,介绍如何编程实现将Excel现有数据自动录入到信息管理系统的成绩登记页面。1设计语言VBA简介VBA(VisualBasicforApplication)是微软公司开发出来的一种通用的Of

4、fice自动化语言,它嵌入在Office各个套件中,用于定制和扩展Office的功能,可以大大提高Office的功用。由于采用了用于开发应用程序的Basic语言,因此在编程方法、对象使用上它与VisualBasic完全相同,用户易学易用,很容易掌握。在使用Office系列软件办公时,经常会遇到一些重复性的工作,特别是在处理大批量的文档时,手工操作耗时费力,而通过VBA编写宏来处理文档,将使这些工作完全自动化。2程序相关对象2.1VBA对象对象代表应用程序中的元素,比如工作表、单元格、图表、窗体或是一份报告。在VBA的

5、代码中,在使用对象的任一方法或改变它的属性之一的值之前,必须去识别对象。例如VBA中最高级对象是Application对象,在Application对象中包含了一些其他的对象集合(如Document,Windows,Selection,CommandBars等),下面的代码在应用程序中创建MicrosoftExcel工作簿对象,然后在MicrosoftExcel中打开工作簿。Setxl=CreateObject("Excel.Sheet")xl.Application.Workbooks.Open"newbook.xl

6、s"2.2OLE对象模型*收稿日期:2009-12-09作者简介:江治,男,江西抚州人,华东师范大学信息科学技术学院在职硕士,温州大学物理与电子信息工程学院讲师,研究方向:计算机应用。第3期江治:利用VBA实现网页中自动录入成绩#125#OLE对象模型是Microsoft的一项技术,它允许在一个应用程序中使用另外一个应用程序的命令和功能,允许通过引用另一个应用程序的对象属性和方法来返回编辑和输出数据。通过OLE自动化,使我们在开发新的应用程序时可以借用现成的应用程序的部分或全部功能,从而大

7、大减轻开发的工作量,缩短开发周期,使开发工作事半功倍,这就是OLE自动化带给开发人员的好处,例如VBA中CreateObject函数,通过这个函数我们可以实现对支持OLE对象模型的应用程序的引用。下面的代码将创建对一个MicrosoftExcel电子数据表的应用并将其赋给对象变量ExcelSheet。DimExcelSheetAsObjectSetExcelSheet=CreateObject("Excel.Sheet")3程序主要代码3.1创建工具栏按钮定义模块1的子程序AddBar(),创建成绩管理工具栏,便

8、于教师操作。实现代码如下SubAddbar()DimToolsNameasStringToolsName="成绩管理"OnErrorResumeNextApplication.CommandBars(ToolsName).Delete!防止多次安装工具栏,先删除Setgj=Application.Comma

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。