一、问题导入
一个excel文件有若干张工作表,将每个工作表提出来单独形成一个文件,以表名命名该文件,并存到指定目录中。(表格拆分成多个文件)
二、For each 循环
Dim danyuange as range for each danyuange in range("a1:a10") danyuange =1 next |
(1)缺点是不能计数,但可内置计数变量i=i+1 (2)演练“删除工作表”文件,利用 for each sh in sheets,体会便利性 (3)删除表用此方法很方便,删除单元格时,仍需注意连续单元格无法全删 (4)用for each演示“取文件名”文件 |
三、workbooks工作薄对象的主要方法
方法 | 示例1 | 示例2 | 备注 |
open | workbooks.open filename:="d:\data\1.xlsx" | []括起来的参数可有可无 演示打开该文件后在当前文件(active用法)的某单元格写入数据 |
保存前可对 activebook 的某sheet中 的单元格操作 |
add | workbooks.add | ||
save(as) | activeworkbook.save | activeworkbook.saveas filename:="d:\data\2.xlsx" | |
close | activeworkbook.close | activeworkbook.close |
注:对active的认识
让屏幕不更新可用application.screenupdating=false application.screenupdating=true成对出现。
四、练习题
(1)解决导入问题:
sht.copy
activeworkbook.saveas filename:="d:\data\" & sht.name & ".xlsx"