excel提取工作表名称有哪些方法?

第一，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