如何提取一个EXCEL文件中的所有工作表的名称

方法1

1、首先，我分享第一个方法，这个方法可是非常简单的哦。打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”。

2、找到“查看代码”并打开，查找方法如下图所示，有以下两个方法：1鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；2找到工具栏中的“开发工具”，可以看到“查看代码”在“控件”下拉菜单中。

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

sub

a()

for

each

sh

in

sheets

k

=

k

+

1

cells(k,

1)

=

shname

next

end

sub

输入以下公式，得到文件名

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

输入以下公式，得到工作表名

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

方法/步骤

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

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

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

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

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

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

如下所示：

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

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

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

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

Suba()

ForEachshInSheets

k=k+1

Cells(k,1)=shName

Next

EndSub

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

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

5、完成效果图。

Sub 取得所有工作表的名字()

    For i = 1 To SheetsCount

        '写到当前表的第1列

        Cells(i, 1)Value = Sheets(i)Name

    Next

End Sub

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