摘要: Sub 保存工作簿的3种方法() ActiveWorkbook.Save '保存当前活动工作簿的变化 ActiveWorkbook.SaveAs Filename:="c:\windows\xiehui.xls" '将当前活动工作簿另存 ActiveWorkbook.SaveCopyAs Filename:="c:\windows\xiehui.xls" '这行代码可以实现备份的要求. Activ... 阅读全文
posted @ 2011-04-15 19:30 surfacetension 阅读(1233) 评论(0) 推荐(0) 编辑
摘要: 问题:有处理学生评语,限于网络条件,往往学生提交的都是单个文件,这就需要将其一一提取出来,然后进行判断、导出等操作,但首先要解决的就是查找所有文件如何操作,这里需要用到Dir函数,当然创建一个文件搜索对象也可以。 Dir 函数 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法 Dir[(pathname[, attributes... 阅读全文
posted @ 2011-04-15 10:02 surfacetension 阅读(3407) 评论(1) 推荐(0) 编辑
摘要: 问题提出:默认情况下,新建工作簿时都是给出3张工作表,如果在让老师们整理一些材料时,不清楚的老师往往乱点,如果一个工作簿只有1张工作表的话,就可以有效地避免这个现象。 解决代码: Sub AddNewWorkbook() Workbooks.Add Template:=xlWBATWorksheet '以工作表作为模版,此时只建立一张工作表 Workbooks.Add '若不加模版参数,则为默认3... 阅读全文
posted @ 2011-04-15 08:46 surfacetension 阅读(694) 评论(0) 推荐(1) 编辑