第一，excel提取工作表名称：宏表函数
excel提取工作表名称的方法，在以前的文章：Excel中工作表间的关联链接方法及实例(http://www.ittribalwo.com/show.asp?id=834)曾经介绍过，使用宏表函数来提取工作表名称，并自动添加超链接。
第二，vba自定义函数获取工作表名称
下面再介绍一个vba获取工作表名称的自定义函数。使用方法如下，打开需要excel工作表，按下ALT+F11，打开VBE编辑器，单击插入——模块，复制下面的代码，然后关闭VBE。回到excel工作表，在空白单元格输入公式：=gname(ROW(A1))，下拉复制，知道出现0错误为止，即可以实现用vba获取工作表名称。
Function gname(x As Integer)
If x = 0 Then
gname = ActiveSheet.Name
ElseIf x > 0 And x <= Sheets.Count Then
gname = Sheets(x).Name
ElseIf x > Sheets.Count Then
MsgBox "超出范围"
End If
Application.Volatile
End Function
第三，vba获取工作表名称
同样，在excel中，按下ALT+F11，打开VBE编辑器，插入——模块，复制下面的代码，然后按F5键或者单击工具栏绿色的“运行”按钮即可实现用vba获取工作表名称。获取的工作表名称将存放在当前工作表的A列。
Sub vba获取工作表名称()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Next x
End Sub
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
相关文章
