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
 赞 (0)
                        