返回目录：excel表格制作
使用zdCELL函数，此函数是EXCEL中的信息函数，返回有关单元格的格式、位置或内容的信息。使用方法为：
1、CELL函数有两个参数，CELL(info_type, [reference])，第一个参数指定要返回的单元格信息的类型，第二个参数，需要其相关信息的单元格。当输入或选择此函数时，后跟第一参数的选择。
2、选择“filename”，包含引用的版文件名（包括全部路径），文本类型。但当输入公式：=CELL("filename")后，发现返回的结果是空值。这是因为引用的工作表尚未保存，则返回空文本 ("")。
3、将工作簿保存，关闭重新打开，或者在任意单元格输入内容，再或者按F9功能键刷新下，都将会看到工作表名。
4、有时，需要对同一工作簿的多个工权作表各自提取出自己的表名，以便进一步引用，可以按Ctrl加选，选择多个工作表，再输入公式。
5、此处提取的是工作表名，原则上引用哪个单元格都一样，都将返回所在的表名，但A1是左上角第一个，比较简单好写：=CELL("filename",A1)。
1、打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”，如下图所示。抄
zd大图" class="ikqb_img_alink">
2、找到“查看代码”并打开，鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；
3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边弹出sheet7代码输入框，在其中输入以下内容：
Sub a()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
输入后点击工具栏中的“运行”，点击下拉菜单中的“运行子过程/用户窗体”，运行完毕后即完成所有工作表名的提取。
4、接下来点击“工程”中的“查看对象”即可回到工作薄中，可以看到工作表名已经全部提取出来了，
5、完成效果图。
sub test()
worksheets("Sheet1").[a1]=thisworkbook.name
end sub
输入以下公式，zd得到文件名专
=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)
输入以下公式，得属到工作表名
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)