摘要：
这次的任务比较简单，就是把理科各科后60名的学生提出来。不再多说，直接上图：这是处理前的样式。在处理前，遵从错误可以挽回的原则，应该在处理前先做一个备份，或者说创建一个副本以便于处理。源程序如下：Option Base 1Sub 提取补考学生名单理科各科后60名() Dim fs(6) As Double, i As Integer, totalR As Integer, mycell As Range Worksheets("sheet1").Activate ActiveSheet.Copy before:=Sheets(1) ActiveSheet.Name = &q 阅读全文
摘要：
以前的操作方式是首先将要提取数据工作簿打开,获得要复制的区域,然后再激活目标工作簿,将数据复制进去,时间上太慢,现在学会了创建工作簿对象,由于不需要在源工作簿中写入数据,只是取得数据即可,所以不需打开源工作簿,利用创建工作簿对象即可.再一个,既然格式相同,往往源工作簿的文件名也具有相似的命名规则,再者,即使是不相似也无所谓,可以通过创建一个文件搜索对象,在指定文件夹中搜索特定文件,然后将其保存到数组中,利用它就可以创建工作簿对象.先看一下工作簿所在的文件夹样式:这是把所有需合并的工作簿都放在了同一文件夹下,(一会再考虑如果在不同文件夹下,是否可行?!!)现在要求做的是将xx***.xls合并到 阅读全文