提取工作薄及工作表名.doc

方法一常规方法 cell函数也可以这样取得工作表名，在任一单元格输入：=RIGHT(CELL(filename),LEN(CELL(filename)-FIND(,CELL(filename)方法二取工作表名及路径=CELL(filename,$A$1)取工作簿及表名=MID(CELL(filename,$A$1),FIND(,CELL(filename,$A$1),LEN(CELL(filename,$A$1)+1-FIND(,CELL(filename,$A$1)取工作簿名=MID(CELL(filename,$A$1),FIND(,CELL(filename,$A$1),FIND(,CELL(filename,$A$1)-FIND(,CELL(filename,$A$1)+1)取工作表名=MID(CELL(filename,$A$1),FIND(,CELL(filename,$A$1)+1,LEN(CELL(filename,$A$1)-FIND(,CELL(filename,$A$1)方法三定义一个名称，简写为：mc,引用位置写入=get.cell(66)然后在任意单元格输入=mc,即可得到当前工作簿名称。定义一个名称，简写为：mcb,引用位置写入=get.cell(62)或=get.cell(32),然后在任意单元格输入=mcb,即可得到当前工作簿及工作表名称。补充A取本表表名:定义X=MID(GET.DOCUMENT(1),FIND(,GET.DOCUMENT(1)+1,100)在各表输入=X补充B定义一个名称，简写为：mcb,引用位置写入=get.cell(62)或=get.cell(32),然后在任意单元格输入=RIGHT(mcb2,LEN(mcb2)-SEARCH(,mcb2,1) 可以得到工作表名称补充C定义一个名称，简写为：mcb,引用位置写入=get.cell(62)或=get.cell(32),然后在任意单元格输入=MID(mcb,SEARCH(,mcb2,1)+1,100) 可以得到工作表名称补充知识点1GET.DOCUMENT宏表函数说明语法GET.DOCUMENT(type_num, name_text)Type_num 指明信息类型的数。下表列出 type_num 的可能值与对应结果。Type_num 返回1 如果工作簿中不只一张表，用文字形式以“book1sheet1”的格式返回工作表的文件名。否则，只返回工作簿的文件名。工作簿文件名不包括驱动器，目录或窗口编号。通常最好使用 GET. DOCUMENT(76)和 GET. DOCUMENT(88) 来返回活动工作表和活动工作簿的文件名。2 作为文字，包括 name_text 的目录的路经。如果工作簿name_text 未被保存，返回错误值 #N/A3 指明文件类型的数1 = 工作表2 = 图表3 = 宏表4 = 活动的信息窗口5 = 保留文件6 = 模块表7 = 对话框编辑表4 如果最后一次存储文件后表发生了变化，返回TRUE；否则，返回FALSE。5 如果表为只读，返回TRUE；否则，返回FALSE。6 如果表设置了口令加以保护，返回TRUE；否则， 返回FALSE。7 如果表中的单元格，表中的内容或图表中的系列被保护，返回TRUE；否则，返回FALSE。8 如果工作簿窗口被保护，返回TRUE；否则，返回FALSE。下面四个 type_num 的数值只用于图表。Type_num 返回9 指示主图表的类型的数。1 = 面积图2 = 条形图3 = 柱形图4 = 折线形5 = 饼形6 = XY (散点图)7 = 三维面积图8 =三维柱形图9 = 三维折线图10 = 三维饼图11 = 雷达图12 = 三维等形图13 = 三维曲面图14 = 圆环图10 指示覆盖图表类型的数，同以上主图表的 1，2，3，4，5，6,11 和 14。没有覆盖图表的情况下返回错误值 #N/A11 主图表系列的数12 覆盖图表系列的数下列 Type_num 的值用于工作表，宏表，在适当的时候用于图表。Type_num 返回9 第一个使用行的编号。如文件是空的，返回零。10 最后一个使用行的偏号。如文件是空的，返回零。11 第一个使用列的编号。如文件是空的，返回零。12 最后一个使用列的编号。如文件是空的 ，返回零。13 窗口的编号。14 指明计算方式的数。1 = 自动生成 有2 = 除表格外自动生成3 = 手动15 如果在选项对话框的重新计算设置标签下选择迭代选择框，返回TRUE；否则，返回FALSE。16 迭代间的最大数值。17 迭代间的最大改变18 如果在选项对话框的重新计算设置标签下选择更新过程引用选择框，返回TRUE；否则，返回FALSE。19 如果在选项对话框的重新计算设置标签下选以显示值为准选择框，返回TRUE；否则，返回FALSE。20 如果在 Options 对话框的重新计算设置标签下选择1904 日期系统选择框，返回TRUE；否则，返回FALSE。Type_num 是21-29之间的数， 对应于 Microsoft Excel 先前版本的四种默认字体。提供这些值是为了宏的兼容性。下列 Type_num 数值应用于工作表，宏表和指定的图表。Type_num 返回30 以文字形式返回当前表合并引用的水平数组. 如果列表是空的，返回错误值 #N/A31 1至11 之间的一个数，指明用于当前合并的函数。对应于每个数的函数列于下面 CONSOLIDATE 函数中，默认函数为SUM32 三项水平数组，用于指明 Data Consolidate 对话框中选择框的状态。如果此项为TRUE，选择选择框.如果此项为FALSE，清除选择框. 第一项指明顶端行选择框，第二项指最左列选择框,第三项指与源数据链接选择框。33 如果选择了选项对话框的重新计算设置标签下的保存前重新计算选择框，返回TRUE；否则，返回FALSE。34 如工作簿定义为只读，返回TRUE；否则，返回FALSE。35 工作簿为写保护，返回TRUE；否则，返回FALSE。36 如文件设置了写保护口令，并以可读/可写方式打开，返回最初使用写保护口令存文件的用户的名字。如文件以只读形式打开，或文件未设置口令，返回当前用户的名字。37 对应于显示在另存为对话框中的文档的文件类型。所有 Microsoft Excel 可识别的文件类型列于SAVE.AS函数中。38 如选择了分级显示对话框中的明细数据的下方选择框，返回TRUE；否则，返回FALSE。39 如果选择了分级显示对话框中的明细数据的右侧选择框，返回TRUE；否则，返回FALSE。40 如果选择了另存为对话框中的建立备份文件选择框，返回TRUE；否则，返回FALSE。41 1至3中的一个数字，指明是否显示对象：1 = 显示所有对象2 = 图和表的位置标志符3 = 所有对象被隐藏42 包括表中所有对象的水平数组，如无对象，返回错误值 #N/A43 如果在选项对话框的重新计算设置标签下选择了保存外部链接值选择框，返回TRUE；否则，返回FALSE。44 如文件中的对象被保护，返回TRUE；否则，返回FALSE。45 0至3中的一个数，指明窗口同步化方式。0 = 不同步1 = 水平方向上同步2 = 垂直方向上同步3 = 水平方向，垂直方向上均同步46 七项水平数组，用于打印设置，可由 LINE. PRINT 宏函数完成。- 建立文字 - 左边距 - 右边距 - 顶边距 - 底边距 - 页长 - 用于指明打印时输出是否格式化的逻辑值，格式化为TRUE, 非格式化为FALSE。47 如果在选项对话框的转换标签中选择了转换表达式求值选择框，返回TRUE；否则，返回FALSE。48 标准栏宽度设置下列 type_num 值对应于打印与页的设置。Type_num 返回49 开始页的页码，如未指明或在页面设置对话框的页标签下的起始页号文字框输入了“自动”，返回错误值#N/A50 当前设置下欲打印的总页数，其中包括注释，如果文件为图表，值为151 如只打印注释时的总页数。如文件为图表类型，返回错误值 #N/A52 在当前指定的单位中，指明边距设置(左，右，顶，底)的四项水平数组。53 指明方向的数字:1 = 纵向2 = 横向54 文本串的页眉，包括格式化代码。55 文本串的脚注，包括格式化代码。56 包括两个逻辑值的水平数组，对应于水平垂直方向置中。57 如打印行或列的上标题，返回TRUE；否则，返回FALSE。58 如打印网格线，返回TRUE；否则，返回FALSE。59 如表以黑白方式打印，返回TRUE；否则，返回FALSE。60 1至3中的一个数,指明打印时定义图表大小的方式。1 = 屏幕大小2 = 调整到3 = 使用整页61 指明重排页命令的数:1 = 先列后行2 = 先行后列如文件为图表类型,返回错误值#N/A62 扩缩比,未指定时为100%。如当前打印机不支持此项操作或文件为图表类型时，返回错误值#N/A。63 一个两项水平数组,指明其报表需按比例换算，以适合的页数印出 ,第一项等于宽度(如未指明宽度按比例缩放,返回#N/A)第二项等于高度(如未指明高度按比例缩放,返回#N/A)。如文件为图表类型,返回#N/A64 行数的数组,相应于手动或自动生成页中断下面的行。65 列数的数组。相应于手动或自动生成的页中断右边的列。附注 GET.DOCUMENT(62)和GET.DOCUMENT(63)互相排斥,如果其中一个返回一个数值,另外一个返回错误值#N/A。下列type_num数值对应不同文件设置。Type_num 返回66 Microsoft Excel for Windows 中，如果在选项对话框的转换标签中选择了转换公式项选择框,返回TRUE;否则,返回FALSE。67 Microsoft Excel 5.0版本下,通常返回TRUE。68 Microsoft Excel 5.0版本下,通常返回簿的文件名。69 如果在选项对话框的查看标志中选择了自动分页线，返回TRUE;否则,返回FALSE。70 返回文件中所有数据透视表的文件名71 返回表示文件中所有类型的水平数组。72 返回表示当前表显示的所有图表类型的水平数组。73 返回表示当前工作表每一个图表中系列数的水平数组。74 返回控制的对象标识符，控制当前执行中的由用户定义的对话框编辑表中获得焦点的控制(以对话框编辑表为基础)。75 返回对象的对象标识符,对象正在执行中的由用户定义的对话框编辑表中的默认按枢(以对话框编辑表为基础)。76 以Book1sheel的形式返回活动表或宏表的文件名。77 以整数的形式返回页的大小:1=Letter 8.5x11 in 2 = Letter Small 8.5 x 11 in5 = Legal 8.5 x 14 in9 = A4 210 x 297 mm10 = A4 Small 210 x 297 mm13 = B5 182 x 257 mm18 = Note 8.5 x 11 in78 返回打印分辨率,为一个二项水平数组。79 如在页面设置对话框的工作表标签中选择草稿质量选择框返回TRUE;否则,返回FALSE。80 如在页面设置对话框的工作表标签下选择了附注选择框，返回TRUE;否则,返回FALSE。81 做为一个单元格的引用,从页面设置对话框的工作表标签返回打印区域。82 做为一个单元格引用从页面设置对话框的工作表标签回打印标题。83 如果工作表为方案而被保护起来,返回TRUE;否则,返回FALSE。84 返回表中第一个循环引用的值,如无循环引用,返回错误值#N/A。85 返回表的高级筛选方式状态。这种方式顶部设有向下的箭头,如数据精单通过选择筛选,再从数据菜单选择高级筛选被筛选,返回TRUE;否则,返回FALSE。86 返回表的自动筛选方式状态。这种方式顶部有向下的箭头,如选择了筛选,再从数据菜单选择自动筛选,筛选向下的箭头被显示出来,返回TRUE;否则,返回FALSE。87 返回指示表的位置的数字,第一张表位置为1。计算中包含隐藏起来的表。88 以“book1”的形式返回活动工作簿的文件名。补充E知识点2函数定义：GET.CELL(类型号,单元格(或范围) 内容为可选类型号说明：1 参照储存格的绝对地址2 参照储存格的列号3 参照储存格的栏号4 类似 TYPE 函数5 参照地址的内容6 文字显示参照位址的公式7 参照位址的格式，文字显示8 文字显示参照位址的格式9 传回储存格外框左方样式，数字显示10 传回储存格外框右方样式，数字显示11 传回储存格外框方上样式，数字显示12 传回储存格外框方下样式，数字显示13 传回内部图样，数字显示14 如果储存格被设定 locked传回 True15 如果公式处于隐藏状态传回 True16 传回储存格宽度17 以点为单位传回储存格高度18 字型名称19 以点为单位元传回字号20 如果储存格所有或第一个字符为加粗传回 True21 如果储存格所有或第一个字符为斜体传回 True22 如果储存格所有或第一个字符为单底线传回True23 如果储存格所有或第一个字符字型中间加了一条水平线传回 True24 传回储存格第一个字符色彩数字， 1 至 56。如果设定为自动，传回 025 MS Excel不支持大纲格式26 MS Excel不支持阴影格式27 数字显示手动插入的分页线设定28 大纲的列层次29 大纲的栏层次30 如果范围为大纲的摘要列则为 True31 如果范围为大纲的摘要栏则为 True32 显示活页簿和工作表名称33 如果储存格格式为多行文字则为 True34 传回储存格外框左方色彩，数字显示。如果设定为自动，传回 035 传回储存格外框右方色彩，数字显示。如果设定为自动，传回 036 传回储存格外框上方色彩，数字显示。如果设定为自动，传回 037 传回储存格外框下方色彩，数字显示。如果设定为自动，传回 038 传回储存格前景阴影色彩，数字显示。如果设定为自动，传回 039 传回储存格背影阴影色彩，数字显示。如果设定为自动，传回 040 文字显示储存格样式41 传回参照地址的原始公式42 以点为单位传回使用中窗口左方至储存格左方水平距离43 以点为单位传回使用中窗口上方至储存格上方垂直距离44 以点为单位传回使用中