excel中使用vba提取所有工作薄名称的方法

1、首先我们打开一个工作样表作为例子。

3、讲解很简单，activesheet为活动工作表，也就是运行该宏的表格，初始单元格设置为A1单元格。

5、循环的判断中止为所有工作薄计数-1，大家可以理解为减掉宏运行的当前空白工作薄的数字。计数函数为ThisWorkbook.Sheets.Count。