excel里 如果获得每张表的名称

Sub 取得所有工作表的名字()

    For i = 1 To SheetsCount

        '写到当前表的第1列

        Cells(i, 1)Value = Sheets(i)Name

    Next

End Sub

自动获取同一工作簿下表名。

首先，自定义名称管理器，使用函数=GETWORKBOOK(1)

使用公式=INDEX(自动获取表名，ROW(A1))。获取表名，然后往下复制公式。

只取有用的表名，复制粘贴为数值，然后查找替换，去掉[######xls]内容即可。

自动命名。

选择工作表的名称，点击插入--数据透视表。

在程序中通过sql语句查询来获得某个数据库的所有表名，代码如下：

SELECT

table_name

FROM

information_schematables

WHERE table_schema = 'mydatabasename'

AND table_type = 'base table'

扩展资料

1，利用systables目录视图查询所有表的名字，systables目录视图为每个表对象返回一行 示例语句如下：

select from systables

注意：systables目录视图也只有在SQL SERVER2005及以上的版本中才能使用。

2，利用存储过程sp_tables sp_tables存储过程,可返回可在当前环境中查询的对象列表。这代表可在FROM子句中出现的任何对象。 我们可以执行如下语句：

exec sp_tables

在结果集中筛选出所有TABLE_TYPE等于TABLE的记录就是表信息了。

参考资料：

百度百科 systables

1、打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”，如下图所示。

2、找到“查看代码”并打开，鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；

3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边d出sheet7代码输入框，在其中输入以下内容：

Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = shName

Next

End Sub

输入后点击工具栏中的“运行”，点击下拉菜单中的“运行子过程/用户窗体”，运行完毕后即完成所有工作表名的提取。

4、接下来点击“工程”中的“查看对象”即可回到工作薄中，可以看到工作表名已经全部提取出来了，

5、完成效果图。

以上就是关于excel里 如果获得每张表的名称全部的内容，包括:excel里 如果获得每张表的名称、数据透视表引用的表格名称如何获取、怎么用Sql语句获取一个数据库中的所有表的名字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！