【VBA(四)：操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

上一篇：【VBA(三)：操作工作表】【Worksheets工作表对象+Application主程序对象+小结及练习】

Workbooks工作薄对象

打开文件

给当前工作表进行赋值

代码

效果图

更改保存并关闭

代码

效果图

关闭屏幕更新

可以提高运行效率

更正一下，之前使用没有成对出现，Application.ScreenUpdating 、Application.DisplayAlerts需要成对出现的

新建和另存工作薄文件

代码

效果图

For Each循环

填充数据

将A1：A10填充为1
代码

删除表

保留绝不能删的表，其他表删除

代码

效果图

表格拆分为多个文件

原数据

代码

效果图

小结及练习

概念

workbooks
For each A in Worksheets
Dim sht As Worksheet
WorkbooksOpen/.Active/.Close/.Add/.Save/.SaveAs

作业成绩表

有个多地区的成绩单，根据专业类添加专业代码，根据性别填写称呼，姓名空白删除整行。
原数据


代码1

代码2

下一篇：【VBA(五)：操作单元格对象】【单元格+单元格对象常用操作+小结及练习】