Vba批量删除工作表，批量另存工作表为excel文件

 

                                           工作表的基础操作

上一章我们学习了工作表的一些操作，这一章就来学习一下对工作簿的操作

• 工作表和工作簿有什么区别呢？

一个excel文件就是一个excel工作簿例如abc.xls，一个工作簿中包含1个到若干个工作表例如sheet1，也就是说工作簿是由工作表组成的。

下面我们就来了解一下工作簿的操作

• 打开工作簿

Application.displayAlerts=false   //点击保存会有弹框出现，所以要先关闭弹框

Application.screenUpdating =false   //操作工作簿桌面会出现闪动。也先关闭掉

Workbooks.open filename:=”d:\data\1.xlsx”  //打开D盘data文件下的1.xlsx工作簿

Activeworkbook.sheets(1).range(“a1”)=”到此一游”  // Activeworkbook表示当前活动的工作簿。Activeworkbook.sheets(1).range(“a1”)指当前活动的工作簿的第一个工作表的A1单元格填写”到此一游”。证明我们真的打开过。

Activeworkbook.Save  //保存一下刚刚做的修改

Activeworkbook.close //关闭工作簿

Application.displayAlerts=true   //开启

Application.screenUpdating =true  //开启

 

• 新建工作簿

Application.displayAlerts=false

Application.screenUpdating =false

Workbooks.add  //新建一个工作簿

Activeworkbook.sheets(1).range(“a1”)=”到此一游haha” //新建工作簿会自动打开，默认有一个sheet1工作表，我们在新建工作簿的第一个工作表的A1单元格填写”到此一游”。证明我们的操作成功了。

Activeworkbook.Save   //保存一下，新建文档默认会保存到文档目录下面，你可以手动新建一个工作簿直接点保存看一下默认地址。

Activeworkbook.close  //关闭

Application.displayAlerts=true

Application.screenUpdating =true

 

• 保存工作簿

Activeworkbook.SaveAsfilename:=”d\data\2.xlsx”

 

• 关闭工作簿

Activeworkbook.close

 

• Foreach 的用法

前几章我们一张掌握了for的用法，今天来介绍for的另一种写法。。

有点像php语言的写法,下面我们通过两段代码来更直观的了解for each

 需求1：将单元格A1 到A10 都赋值1

For的写法：

Dim i as integer For i=1 to 10    Range(“a” & i)=iNext

For each的写法：

Dim ra as range  For each ra in range(“a1:a10”)   ra=1  //上面我们定义了ra as range,ra是单元格类型，表示a1到a10单元格  Next

 

需求2：将单元格A1 到A10 赋值为他们各自的下标

For的写法：

Dim i as integer For i=1 to 10    Range(“a” & i)=i  Next

 

For each的写法：

Dim ra as range     For eachra in range(“a1:a10”)       i=i+1    //  每次循环i+1,i初始值默认是0       Ra=i   //等价于range(“a”& i)= i    Next

学会了for each 我们来实战一下

案例1

题目:

    除了叫“绝不能删”的表不删除外，批量删除工作簿中的其他表。

分析：

   1. 要判断每一张表的名字，不等于“绝不能删”，执行删除操作

   2.要定义一个变量类型为工作表dim sht as worksheet

   3.执行删除操作会有提示弹框要事先关闭

代码：

sub del()Dim sht as worksheetApplication.displayAlerts=false  //执行删除操作会有弹框出现，所以要先关闭弹框  For each sht in sheets    If sht.name <>”决不能删” then      sht.delete    End if  NextApplication.displayAlerts=trueend sub

案例2

题目:

将工作簿中的所有工作表另存为一个个excel文件，另存地址为d:\data

 

代码：

sub chaifen()

For each sht in sheetsSht.copy    // copy不指定位置默认新建一个工作簿Activeworkbook.SaveAs filename:=”d\data\”& sht.name & ”.xlsx” //文件路径Activeworkbook.close//关闭Nextend sub

 结果如下图：

对数据分析或者vba有兴趣的朋友可以关注我的公众号，我会在公众号里面发学习笔记，全是干货。一起学习一起成长！