教程 | 10个值得收藏的VBA写法（第2集）

写在前面

编程的人都知道，通过代码解决一个实际问题有时候并不是看上去那样，背后可能隐藏着很巧妙的实现逻辑，这些只有开发者才能真正领悟其中的妙处，相对于给人刻板印象的编程人员来说，这些恰恰是其闪光点所在。

笔者（公众号：URItker）将通过几期文章系统梳理VBA编程中会经常遇到的一些写法，它们仿佛散落在沙滩上的贝壳，有的色彩缤纷，有的深掩在沙中，有些可能已经在你的口袋里，那就权当加深印象，有的也许正是你所需要的，就刻意运用一下，说不好能让你豁然开朗，使编程效果事半功倍！

激活工作簿

Workbooks('book1.xlsx').Activate

将一个原本就是打开的工作簿显示到前台，但是此方法不会运行任何Auto_Activate、Auto_Deactivate工作簿的任何宏， (RunAutoMacros 方法运行这些宏) 。

保存工作簿

ThisWorkbook.Save

保存对当前工作簿所做的更改。注意与ThisWorkbook.Saved = True的区别：

Save是方法，会发出一个动作——保存工作簿

Saved是属性，如果工作簿从上次保存至今未发生过更改，则该值为 True。

关闭工作簿

ThisWorkbook.close

Workbooks对象的Close方法关闭所有打开着的工作簿，而Workbook对象的Close方法则关闭一个工作簿。示例中的代码关闭当前工作簿。

获取工作簿数量

ActiveWorkbook.Sheets.Count

获取活动工作薄中工作表数，多用于对当前工作簿所有工作表进行遍历时的场景，特别的，对于隐藏的工作表也会计数。

活动工作簿名称

ActiveWorkbook.name

获取活动工作簿的名称，名称包含扩展名，且支持多种扩展名的工作簿。

当前工作簿名称

ThisWorkbook.Name

获取当前工作簿的名称。

当前工作簿路径

ThisWorkbook.FullName

获取当前工作簿的名称的同时，也将其存放的路径一并获取，适用于当工作簿关闭后对工作簿的操作场景。（公众号URItker）

当前工作表使用行数

ActiveSheet.UsedRange.Rows.Count

获取活动工作表已使用的单元格行数，只要所在行的任何一列有任何空（有特殊格式）和非空值都会被认为改行已使用。所以，如果你发现统计的行数不是你预想的结果，就从这个方向去查原因。

工作簿行数

Rows.Count

相对应的还有columns.count ，分别指有效的行数和列数。

工作表重命名

Sheets('Sheet1').Name='Sum'

对工作簿进行重命名，当工作簿数量较大的时候，通过vba代码可实现一键批量改名，则效率提高矣。

未完待续

THE

END

创作不易，

您的支持是我坚持的动力，

劳烦动动手指转发、在看