怎么快速提取一个excel文件中的所有工作表名

1、打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”，如下图所示。

2、找到“查看代码”并打开，鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；

3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边d出sheet7代码输入框，在其中输入以下内容：

Suba()

ForEachshInSheets

k=k+1

Cells(k,1)=shName

Next

EndSub

输入后点击工具栏中的“运行”，点击下拉菜单中的“运行子过程/用户窗体”，运行完毕后即完成所有工作表名的提取。

4、接下来点击“工程”中的“查看对象”即可回到工作薄中，可以看到工作表名已经全部提取出来了，

5、完成效果图。

VBA获取Excel工作表的名称用:

ActiveSheetName1)

ActiveWorkbookname

'返回活动工作薄的名称

2)

ThisWorkbookName

'返回当前工作簿名称

3)

ThisWorkbookFullName

'返回当前工作簿路径和名称

方法/步骤

首先，确保当前工作簿已经保存。若未保存，可以按下组合快捷键Ctrl+S进行保存。

其次，在单元格中输入公式=CELL("filename")，如下图所示

从步骤2中的公式结果可以看出当前单元格所在的工作表的名称“Sheet1"已经包含在公式的结果中了，如下图所示

在A2单元格中输入公式=MID(A1,FIND("]",A1)+1,256)，既可以获得当前单元格所在的工作表的名称。如下图所示

以上步骤演示的是分步提取工作表名称的函数方法，若要只使用一个公式提取工作表的名称可以将以上步骤中的两个公式进行组合。即在单元格中输入以下公式

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,256)

如下所示：

以上公式可以使用在不同的工作表中，将获得任意的工作表的名称。

1、Ctrl+F3调出定义名称对话框，或者点击公式-定义名称调出定义名称对话框。

2、在名称框里输入一个定义名称(本例输入ShName)，方便在工作表中引用。在引用位置处输入=GETWORKBOOK(1)，设置完毕后点击确定按钮。

3、双击一个单元格，输入公式：=INDEX(ShName,ROW(A1))，这时就返回了包括工作簿名称的工作表名称。

定义个名称，公式，定义名称，定义名称，名称框输一名称（如bm）复制这公式=REPLACE(GETWORKBOOK(1),1,FIND("]",GETWORKBOOK(1)),)&T(NOW())粘贴到引用位置框，确定，提取表名的起始位置=index(bm,1,row(a1))下拉（那a1的1表示从第一个工作表开始提取），提取出来后，复制，选择性粘贴为数值后，公式下的名称管理器，找到刚定义的名称删除它

以上就是关于怎么快速提取一个excel文件中的所有工作表名全部的内容，包括:怎么快速提取一个excel文件中的所有工作表名、excel vba如何获取当前工作薄名、如何在单元格中获取Excel工作表的名称等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！