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