提取工作薄与工作表名.docVIP

方法一　　常规方法 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? ?? ?? ?如果工作簿中不只一张表，用文字形式以“［book1］sheet1”的格式返回工作表的文件名。否则，只返回工作簿的文件名。工作簿文件名不包括驱动器，目录或窗口编号。通常最好使用 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/A?11? ?? ?? ?主图表系列的数12? ?? ?? ?覆盖图表系列的数　　　下列 Type_num 的值