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

Workbooks工作薄对象

打开文件

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

给当前工作表进行赋值

代码
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
效果图
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

更改保存并关闭

代码
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
效果图
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

关闭屏幕更新

可以提高运行效率
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

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

新建和另存工作薄文件

代码
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
效果图

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

For Each循环

填充数据

将A1:A10填充为1
代码
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

删除表

保留绝不能删的表,其他表删除
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
代码
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
效果图
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

表格拆分为多个文件

原数据
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
代码
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
效果图
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

小结及练习

概念

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

作业成绩表

有个多地区的成绩单,根据专业类添加专业代码,根据性别填写称呼,姓名空白删除整行。
原数据
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
代码1
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】
代码2
【VBA(四):操作工作薄】【Workbooks工作薄对象+For Each循环+小结及练习】

相关文章:

  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-10-22
  • 2021-09-18
  • 2022-02-02
  • 2022-12-23
  • 2022-12-23
猜你喜欢
  • 2021-12-29
  • 2021-05-27
  • 2021-07-04
  • 2021-08-20
  • 2021-07-19
  • 2022-12-23
  • 2021-12-05
相关资源
相似解决方案