本经验介绍使用Excel内置的VBA工具来获取工作表名称的两种方法，具体步骤如下所述：
工具/原料
Excel2003
方法1：vba自定义函数获取工作表名称
1、打开Excel工作簿文档，按ALT+F11组合键进入VBA编辑器窗口
2、单击“插入”菜单中的“模块”命令
3、复制下面的代码，粘贴到模块框中Functiongname(xAsInteger)If垓矗梅吒x=0Thengname=ActiveShe髫潋啜缅et.NameElseIfx>0Andx<=Sheets.CountThengname=Sheets(x).NameElseIfx>Sheets.CountThenMsgBox"超出范围"EndIfApplication.VolatileEndFunction
4、然后关闭VBA编辑器，返回到Excel工作表界面，在A1单元格键入公式“=gn瞢铍库祢ame(ROW(A1))”，向下拖动复制，直到出现0错误为止。
方法2：vba获取工作表名称
1、打开Excel工作簿文档，按下ALT+F11组合键，打开VBA编辑器窗口
2、单击菜单栏上的“插入”——“模块”
3、将下面的代码拷贝到模块文本框中Subvba获取工作表名称()Forx=咯悝滩镞1ToSheets.CountCells(x,1)=Sheets(x)缕计瓤账.NameNextxEndSub
4、按F5键或单击工具栏的“运行”按钮即可实现用vba获取工作表名称的效果
5、关闭VBA编辑器窗口，返回Excel工作表界面，在A列我们就可以看到获取到的工作表名称
