Excel vba获(提)取工作表名称的两种方法

excel vba获(提)取工作表名称的两种方法

文章介绍excel提取工作表名称的三种方法，分别使用宏表函数、自定义函数，以及VBA获取工作表名称。

第一，excel提取工作表名称：宏表函数

excel提取工作表名称的方法，在以前的文章：Excel中工作表间的关联链接方法及实例曾经介绍过，使用宏表函数来提取工作表名称，并自动添加超链接。

第二，vba自定义函数获取工作表名称

下面再介绍一个vba获取工作表名称的自定义函数。使用方法如下，打开需要excel工作表，按下ALT+F11，打开VBE编辑器，单击插入——模块，复制下面的代码，然后关闭VBE。回到excel工作表，在空白单元格输入公式：=gname(ROW(A1))，下拉复制，知道出现0错误为止，即可以实现用vba获取工作表名称。

Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.Name

ElseIf x > 0 And x <= Sheets.Count Thengname = Sheets(x).NameElseIf x > Sheets.Count ThenMsgBox "超出范围"End IfApplication.VolatileEnd Function

第三，vba获取工作表名称

同样，在excel中，按下ALT+F11，打开VBE编辑器，插入——模块，复制下面的代码，然后按F5键或者单击工具栏绿色的“运行”按钮即可实现用vba获取工作表名称。获取的工作表名称将存放在当前工作表的A列。

Sub vba获取工作表名称()For x = 1 To Sheets.CountCells(x, 1) = Sheets(x).NameNext xEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。