如何取出excel中的工作表名和工作薄名教学提纲.doc

《如何取出excel中的工作表名和工作薄名教学提纲.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、如何取出excel中的工作表名和工作薄名精品文档如何取出excel中的工作表名和工作薄名1、如果[kl.xls]Sheet1!a3:b8在A1 工作簿名=mid（A1，find（"["，A1)+1,find("]",A1)-find（"["，A1)-1) 工作表名=mid（A1，find（"]"，A1)+1,find("!",A1)-find（"]"，A1)-1) 2、如果没有可以输入没有可以把A1换成cell（"filename")工作薄名 =MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("file

2、name"))-FIND("[",CELL("filename"))-1) 工作表名=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)3、取出工作薄中所有工作表名方法一：定义名称X=GET.WORKBOOK(1)就可以了 然后，在A1中以数组公式输入=index(x,row(1:1)),向下复制，可以得到本工作簿所有的表名。方法二：不过定义A=GET.WORKBOOK(1)，通过公式=INDEX(a,ROW(1:1))求出的结果包括工作簿名和工作表名。我只想要工作表名。 定义"工作表"=REPLACE(GET.WORKBO

3、OK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())然后输入=工作表即可得出首个工作表。收集于网络，如有侵权请联系管理员删除精品文档 再定义“所有工作表”==LOOKUP(ROW(INDIRECT("1:"&COLUMNS(工作表))),MATCH(工作表,工作表,),工作表),输入=所有工作表可以得出所有工作表。（必须选中多个单元格以数组形式输入）方法三：能取得工用表名，并自动链接，给我工作带来不少方便，代码如下： Sub输出工作表并链接() DimiAsInteger Application.ScreenUpdating=FTrue With

4、ActiveSheet Fori=1ToSheets.Count .Hyperlinks.Add.Range("a"&i),"",Sheets(i).Name&"!A1",,Sheets(i).Name WithSheets(i) If.Name<>"目录"Then .Activate .Hyperlinks.Add.Range("a1"),"",Sheets(1).Name&"!A1",,"返回目录" Sheets("目录").Activate EndIf EndWith Nexti EndWith Application.ScreenUpdating=True EndSub收集

5、于网络，如有侵权请联系管理员删除