excel获取工作表名称的两种方法,一起来学习一下吧

方法1

  • 1
    打开excel表格。
  • 2
    按alt f11组合键进入vba编辑器窗口。
  • 3
    单击来自【插入】菜单中的【模块360新知】命令。
  • 4
    复制下面的代码,粘贴到模兼施扬块篇拒框中
    function gname(x as integer)
    if x = 0 then
    gname = activesheet.name
    else造散条析英翻特友已if x > 0 and x <= she越杀部志己质搞千云证ets.count then
    gname = sheets(x).name
    elseif x > sheets厂波诉济纸县.count then
    msgbox "超出制转触范围"
    end if
    application.两酸令volatile
    end func讨连语tion
  • 5
    然后关闭vba编辑器,返回到excel工作表界面,在a1单元格键着或入公式【=gname青担牛液(row(a1))】,向下拖动复制,直到距睡出现0错误为止。
end

方法2

  • 1
    打开exc黄读跑促数数el工作簿文档,按下alt f11组合键,打开vba编辑器窗口
  • 2
    单击菜单栏上的【插入】-【模块】命令。
  • 3
    银架呢育将下面的代码拷贝到模块文本框中
    sub vba获取工作表名称()
    for x = 1 to sheets.count
    cells(x, 1) = sheets(x).name
    next x
    end sub
  • 4
    按f5键或单击工具栏的“运行”按钮即可实现用vba获取工作表名称的效果。
  • 5
    点击【运行】。
  • 6
    闭vba编辑器窗口,返回excel工作表界面,在a使米稳列我们就可以看到获取到的工作表名称。
end