excel vba如何获取当前工作薄名

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

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub ddt()

ActiveWorkbookName '返回活动工作薄的名称

ThisWorkbookName '返回当前工作簿名称

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

End Sub

3、这里返回活动的工作薄名称我们是使用的活动工作薄的name属性，设置一个变量赋予它这样一个值，我们运行一下宏代码。

4、ActiveWorkbookName

是一个值，但是不能单独存在，它可以作为参数，也可以作为变量值，但是不能单独存在。

5、活动工作薄和当前工作薄如果返回值是一样的，是因为当前工作薄和活动工作薄的取值对象一致，活动工作薄是指的激活窗口工作薄，而当前工作薄是指的代码所在工作薄。

6、如果是在name前加上full，则是显示激活工作薄的完整路径，包括名称和在硬盘上的文件位置，如果存在多个不同文件夹中同名文件，使用这个命令可以更准确的确定文件。

1利用公式，首先我们打开工具栏中的“公式”选项卡，点击下拉菜单中的“定义名称”。

2定义一个名称，以定义为“abc”为例，另外在引用位值处输入“=getworkbook(1)”，然后点击“确定”。

3接着我们随便点击一个单元格，在其中输入以下公式“=INDEX(abc,ROW(A1)&T(NOW()))”,然后直接在键盘上点击“Enter”即可看到这个单元格中已经包含第一个工作表名了，接着我们用鼠标左键下拉即可得到所有的工作表的名称。

4从以上得到的名称可以看出，我们得到的名称除了工作表名称外还有工作薄名称，所以接下来我们还要去除工作薄名称，首先选中刚刚得到的所有工作表名称，Ctrl+c（或者右键点击复制），然后随便选中一个单元格，点击鼠标右键，选择“选择性粘贴”中的“值”即完成粘贴。

5接着我们选中粘贴的所有工作表名称，在“数据”下拉菜单中点击“分列”进入以下窗口，选择“固定宽度”后点击“下一步”。

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

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

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

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

Suba()

ForEachshInSheets

k=k+1

Cells(k,1)=shName

Next

EndSub

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

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

5、完成效果图。

公式把找后一个 更换成 不就解决了，不过因为比较常见，设置为[ 后的第一个点比较保险，公式就不能简化了 ，另外，是当前页面计算，就不需要指定单元格了。

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

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

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

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

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