一、问题导入
  一个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"