- 浏览: 18785 次
最新评论
2011-12-30
- 博客分类:
- 技术杂绘
2011-12-30
2011年12月30日
用vbs来操作Excel
最近,班主任要 做学生的 学分认定表格,一个学生一份,每个学生又学了 N(n>=15) 课,每门课还要打n个分....
嫌手工输入太麻烦,做此小程序,用vbs来操作excel对象,实现自动化输入...
仓促所作,望批评指正...
'code by youxi01@bbs.bathome.net
'2008-1-17于***第一中学
'/*///////////////初始设定///////////////////////
Dim MyStr,fso,f,j_num
str0="班级:高二 18 班 "
str1="姓名:"
str2=" 学号:200610"
str3=" 时间:2007 ―― 2008 学年"
msg1="学生档案文件name.txt不存在!"&vbcrlf&vbcrlf&"请按照 姓名(Tab)学号 格式,将信息保存到当前目录"
msg2="学分认定模板文件Module.xls不存在!"&vbcrlf&vbcrlf&"请将模板文件拷贝到当前目录,并更名。"
'/*/////////////以下用#隔开的数字为要填学分的位置/////
j_num="6#7#10#11#14#15#18#20#22#24#26#28#29#30#40#42"
num=split(j_num,"#") '按 # 分割
'/*//////////////创建excel对象///////////////////
Set objExcel=CreateObject("Excel.Application")
'/*==========打开文件对象==========================
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
pfolder= fso.Getfile(wscript.scriptfullname).parentfolder
if right(pfolder,1)="\" then pfolder=left(pfolder,len(pfolder)-1)
'/*==========检测配置文件是否存在==================
if not fso.FileExists("name.txt") then msgbox msg1,48,"出错了!":Wscript.quit
if not fso.FileExists("module.xls") then msgbox msg2,48,"出错了!":Wscript.quit
if not fso.FolderExists("★学生学分认定★") then fso.CreateFolder("★学生学分认定★")
'/*//////////////学生姓名和学号保存文件//////////
Set f = fso.OpenTextFile("name.txt", ForReading)
Do While f.AtEndOfLine True
str=f.readline '读文本文件的一行
MyStr=split(str," ",-1) '按 “ ” 分割字符
if Clng(MyStr(1))<10 then '如果学号数小于10#则自动在前面添加0;
Mystr(1)="0"&Mystr(1)
end if
str=str0&str1&MyStr(0)&str2&MyStr(1)&str3
if not fso.FileExists(pfolder&"\★学生学分认定★\"&Mystr(0)&".xls") then
En=inputbox("请设置 "&Mystr(0)&" 的成绩","学分认定")
if En="" then objExcel.quit:wscript.quit '如果选择了取消,就退出程序;
'/*/////////////设置表格操作对象////////////////////
set objWorkbook=objExcel.Workbooks.Open(pfolder&"\module.xls") '###模板excel###
Set objWorksheet = objWorkbook.Worksheets(2)
objWorksheet.Cells(2,1).Value=str '设置学生姓名,学号;
for i=0 to 15
Randomize '初始化随机数生成器
Res=Int((5 * Rnd)) + En '随机数字;
objWorksheet.Cells(10,clng(num(i))).value=Res '将随机内容填入表格;
next
'##########保存地点##############
objWorkbook.SaveAs pfolder&"\★学生学分认定★\"&Mystr(0)&".xls" '按学生名字保存xls文件;
else
msgbox Mystr(0) &" 的成绩已经存在!"
end if
objExcel.quit '退出excel对象;
loop
f.Close
objExcel.quit
复制代码
发表评论
-
用Wscript的Arguments属性实现vbs的命令行参数形式启动
2012-01-20 09:56 1184用Wscript的Arguments属性实现vbs的命令行参数 ... -
VBS--自动定时截图工具
2012-01-20 09:56 874VBS--自动定时截图工具 2010年09月01日 一、 ... -
使用 Iisftp.vbs 创建 FTP 站点
2012-01-20 09:56 628使用 Iisftp.vbs 创建 FTP ... -
CuteFTP上传脚本(VBS)
2012-01-20 09:56 679CuteFTP上传脚本(VBS) 2010年08月13日 ... -
VBS脚本常用经典代码收集
2012-01-20 09:56 939VBS脚本常用经典代码收集 2010年06月21日 1. ... -
vb读取txt文件到textbox (一)
2012-01-19 15:00 894vb读取txt文件到textbox (一) 2011年05月 ... -
VBScript+Asp(15)
2012-01-19 15:00 604VBScript+Asp(15) 2011年07月18日 ... -
read.asp
2012-01-19 15:00 645read.asp 2011年04月20日 ... -
FSO 读写文本文件
2012-01-19 15:00 565FSO 读写文本文件 2010年06月06日 Optio ... -
显卡3D管理程序设置与游戏画质的关系
2012-01-17 04:45 3457显卡3D管理程序设置与 ... -
SDL video子系统学习 (1)
2012-01-17 04:43 1761SDL video子系统学习 (1) 2 ... -
opengl........
2012-01-17 04:43 673opengl........ 2010年06月30 ... -
狂飙GMA900/950 OpenGL性能.(CS玩家必看)
2012-01-17 04:43 1572狂飙GMA900/950 OpenGL性能.(CS玩家必看) ... -
一个Vislau Studio 2010 C++环境下基于OpenGL API 三维编程的实例(原创)
2012-01-17 04:43 682一个Vislau Studio 2010 C++环境下基于Op ... -
Nutch源代码学习-解读Nutch-运行,爬行过程
2012-01-16 03:38 560Nutch源代码学习-解读Nutch-运行,爬行过程 201 ... -
ASP.NET考试资料
2012-01-16 03:37 671ASP.NET考试资料 2009年06 ... -
.net开发工程师应该知道些什么
2012-01-16 03:37 1093.net开发工程师应该知道些什么 2010年05月29日 ... -
c# 面试题目
2012-01-16 03:37 732c# 面试题目 2009年11月13日 问答题沿用 ...
相关推荐
2011-12-30 - 数据库解决方案-周华中 sql.docx
youmi-android_v3.05_2011-12-30
如何为自己的android应用嵌入广告。
更新说明: 2017-02-04(yaya) Ls command: Empty Folder ...2013-06-30 1.解决当命令行长度过长或批处理的参数过多时导致的内存冲突问题. 2013-03-19 1.新增连续命令分隔符";;",无阻碍顺序执行. 例子: set a...
资料包括2011-2021年30省份电子商务销售额的面板数据、2011年与201 2年31省份的电商相关数据。...我自己是需要30省份(未包括西藏)的数据,不过11与12年 西藏的数据附件里面也有。 搜集整理不易,一杯饮料钱~~
Retrieved 2011-11-12. ISO/IEC 7816-1:1998/Amd 1:2003 Maximum height of the IC contact surface". Iso.org. 2011-01-31. Retrieved 2011-11-12. ISO/IEC 7816-2:2007 Identification cards — Integrated ...
这两天制作的openssl 的VC工程for openssl-1.0.0e,除DGST和ocsp不能单独生成文件(编译时报错找不到符号,不用理会)外,基本上可生成所有其他的文件。具体列表如下: ...2011-09-27 10:30 777,138 libeay32....
2011-12 138,012.10 2012-03 117,3 57.60 2012-06 131,320.60 2012-09 138,089 .60 2012-12 151,812.00 2013-03 129,449.6 0 2013-06 143,518.70 2013-09 152,222.70 2013-12 167,772.30 2014-03 140,759.80 20 14-...
2011-12-07 13:11 25,501 AV1_0 ADOPTERS AGREEMENT - Device Class FINA L.pdf 2011-12-21 07:32 2,873,154 ...2011-12-21 07:30 6,103,200 AVFunction v1.0.pdf 2011-09-20 11:46 170,776 Video & USB Timings.xlsx
C#程序设计 四季轮替程序(附源码) 2011-12-30 9:15:31 sonikk QQ343536483 作用:可以让学生观察四季的变化,在讲For循环或Timer定时器的时候很有教育作用。 还可以让学生在此基础上修改程序,做拓展训练。程序短小...
学 院: 测绘工程学院 专 业: 地理信息系统 班 级: 10216202 姓 名: THOMAS 学 号: 1021620212 课程名称: MAPGIS地理信息系统 指导老师: 程朋根、夏元平 二零一一年十二月 实习时间:2011-12-19至2011-12-30 ...
2011-10-19 01:30 <DIR> 封包器 2011-10-19 07:45 614,879 360免杀A.rar 2011-10-19 07:46 624,782 封包器.rar 2011-10-19 07:47 641,127 remotedll.rar 2011-09-08 20:04 727,026 DebugApiSpy.zip 2011-10-23 08:04...
3.6.9.Final 2011-12-15 3.6.8.Final 2011-10-27 3.6.7.Final 2011-08-17 3.6.6.Final 2011-07-21 3.6.5.Final 2011-06-09 3.6.4.Final 2011-05-05 3.6.3.Final 2011-04-06 3.6.2.Final 2011-03-10 3.6.1....
2011-04-29 00:12 73,233 16v.DSN 2001-07-21 21:54 184,514 PLD编程笔记.pdf 2011-04-28 22:20 751,010 gal16v8.pdf 2001-07-21 21:53 116,814 PLD补充.pdf 2011-04-28 22:35 321,024 PLD器件基础及开发系统介绍....
本次IMC共收录12个session,42篇论文,其中和我们实验室有合作关系的老师有:清华大学的袁睿翕老师,以及明尼苏达大学的Zhili Zhang老师(http://www-users.cs.umn.edu/~zhzhang/),张老师2011年有两篇IMC,很厉害...
———第 12 部分:扫频振动; ———第 13 部分:盐雾; ———第 14 部分:引出端强度(引线牢固性); ———第 15 部分:通孔安装器件的耐焊接热; ———第 16 部分:粒子碰撞噪声检测(PINT) ———第 17 部分:...
更新时间:2011-12-30 软件类别:国产软件 / 图像处理 软件语言:简体中文 授权方式:免费软件 Moumu眸目图片批量压缩器3.3中文绿色版(批量压缩相片及制作添加水印工具) 朋友聚会或出外游玩,数码相机总会很...
"作者<或修订人> "版本号 "日期 "修改内容与原因 " "成涛 "V0.1 "2011-10-8 "新建 " "成涛 "V0.2 "2011-10-19 "与公司服务器管理人员讨论修改 " " "V0.9 "2011-12-30 "发布试运行 " " " " " " 评审记录 "评审方式 ...
这是很多人找不到的,方立勋2011版JavaWeb12-30天视频。当然里面还有2010版的
AlphaControls v7.58 Stable Released(30.12.2011) - Full Source.7z