《提取工作薄及工作表名.doc》由会员分享，可在线阅读，更多相关《提取工作薄及工作表名.doc（8页珍藏版）》请在金锄头文库上搜索。
1、方法一常规方法 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(,CE
2、LL(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取本
3、表表名:定义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宏表函数说明语
4、法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
5、= 工作表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 =
6、折线形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 最后一个使
7、用列的编号。如文件是空的 ，返回零。13 窗口的编号。14 指明计算方式的数。1 = 自动生成 有2 = 除表格外自动生成3 = 手动15 如果在选项对话框的重新计算设置标签下选择迭代选择框，返回TRUE；否则，返回FALSE。16 迭代间的最大数值。17 迭代间的最大改变18 如果在选项对话框的重新计算设置标签下选择更新过程引用选择框，返回TRUE；否则，返回FALSE。19 如果在选项对话框的重新计算设置标签下选以显示值为准选择框，返回TRUE；否则，返回FALSE。20 如果在 Options 对话框的重新计算设置标签下选择1904 日期系统选择框，返回TRUE；否则，返回FALSE。T
8、ype_num 是21-29之间的数， 对应于 Microsoft Excel 先前版本的四种默认字体。提供这些值是为了宏的兼容性。下列 Type_num 数值应用于工作表，宏表和指定的图表。Type_num 返回30 以文字形式返回当前表合并引用的水平数组. 如果列表是空的，返回错误值 #N/A31 1至11 之间的一个数，指明用于当前合并的函数。对应于每个数的函数列于下面 CONSOLIDATE 函数中，默认函数为SUM32 三项水平数组，用于指明 Data Consolidate 对话框中选择框的状态。如果此项为TRUE，选择选择框.如果此项为FALSE，清除选择框. 第一项指明顶端行选
9、择框，第二项指最左列选择框,第三项指与源数据链接选择框。33 如果选择了选项对话框的重新计算设置标签下的保存前重新计算选择框，返回TRUE；否则，返回FALSE。34 如工作簿定义为只读，返回TRUE；否则，返回FALSE。35 工作簿为写保护，返回TRUE；否则，返回FALSE。36 如文件设置了写保护口令，并以可读/可写方式打开，返回最初使用写保护口令存文件的用户的名字。如文件以只读形式打开，或文件未设置口令，返回当前用户的名字。37 对应于显示在另存为对话框中的文档的文件类型。所有 Microsoft Excel 可识别的文件类型列于SAVE.AS函数中。38 如选择了分级显示对话框中的
10、明细数据的下方选择框，返回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中的
11、一个数，指明窗口同步化方式。0 = 不同步1 = 水平方向上同步2 = 垂直方向上同步3 = 水平方向，垂直方向上均同步46 七项水平数组，用于打印设置，可由 LINE. PRINT 宏函数完成。- 建立文字 - 左边距 - 右边距 - 顶边距 - 底边距 - 页长 - 用于指明打印时输出是否格式化的逻辑值，格式化为TRUE, 非格式化为FALSE。47 如果在选项对话框的转换标签中选择了转换表达式求值选择框，返回TRUE；否则，返回FALSE。48 标准栏宽度设置下列 type_num 值对应于打印与页的设置。Type_num 返回49 开始页的页码，如未指明或在页面设置对话框的页标签下的起
12、始页号文字框输入了“自动”，返回错误值#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
