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

• 更多经验请关注如果帮到了你，请在上方给个投票谢谢支持 好人一生平安。

• 先顶后看年薪百万如果帮到了你，帮忙给个好评这對小编很重要，万分感谢

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

2. 打开vba编辑器插入一个新模块并输入以下代码：

   Sub 提取工作薄名称()

3. 讲解很簡单，activewindowsheet为活动工作表也就是运行该宏的表格，初始单元格设置为A1单元格

4. 我们使用for each循环，历遍工作表内的所有工作薄并使用range.offset()函数对其進行A1单元格偏移，并对其赋值为s.namename函数返回的是工作薄的名称。

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

6. 新建一个空白工作薄，并插入按钮运行宏我们可以得到当前工作表内所有工作薄的名称。

• 注意我在代码Φ设置了一个错误大家可以找找看。很明显的

• 这个错误是以前讲过的，如果大家找不出来可以私信我谢谢你。