在ExcelVBA结合插入工作表和计算工作表数
工具/原料
电脑
2019Excel
方法/步骤
1、在ExcelVBA中可以通过Sheets.Add并在后面添加参数来新增工作表。如何每次新增工作表都是在最后一张工作表的后面执行?
2、在VBA中新增一个模块和过程,称之为“计算表数”。
3、添加Sheets.Count到过程中,同时将其值写入某个单元格里。
4、执行以上代码后会得到结果是6,即此Excel文件有6张工作表。
5、为什么要将其值写入单元坼黉赞楞格里?因为这里Count并不像之前的Add是一个有实际操作的动作,Count是计算表的数量并返回一个值,是一个属性类型的动作,即告诉我们此Excel文件一共有多少张固嗟喹账工作表。如果没有将其值写入单元格,则会在执行时报错。如图:
6、在给Sheets.Add的After后面给定参数时,不再用具体的工作表名称,而是用讵症慧鹱Sheets.Count作为工作表的索引。(注意:这里过程名可以把“计算表数”改成“新增表”)
7、执行以上代码后,可以看到新增的工作表为Sheet1,是在之前最后一张工作表Sheet2后面。